Info-Mac 11

home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 11 / Info-Mac_XI_Disc_1.cdr_ / Info-Mac XI Disc 1.cdr / Programs / Game / Card / Hi-Lo Poker 0.8
MacBinary | 1997-02-01 | 89.5 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jul 7 10:19:28 1995, modified Sat Feb 1 16:15:27 1997, creator HyperCard, type HyperCard stack, 86720 bytes "Hi-Lo Poker 0.8" , at 0x15340 4622 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 48 69 2d 4c 6f 20 | 50 6f 6b 65 72 20 30 2e |..Hi-Lo |Poker 0.|
|00000010| 38 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 01 52 c0 00 | 00 12 0e ac 22 f2 f0 af |.....R..|...."...|
|00000060| 19 62 ef 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.b......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ef 0c 00 00 |........|........|
|00000080| 00 00 6e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..n.STAK|........|
|00000090| 00 00 00 0a 00 01 52 c0 | 00 00 6e 00 00 00 00 00 |......R.|..n.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a 68 00 00 00 02 |........|...h....|
|000000b0| 00 00 0b 08 00 00 13 f0 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 0f 82 00 00 00 00 | 00 01 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| df 78 d6 d3 00 00 00 00 | 00 2e 00 20 01 1e 01 c0 |.x......|... ....|
|00000100| 00 00 00 00 01 56 02 00 | 00 00 00 00 00 00 00 00 |.....V..|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d c8 00 00 0c 26 | 00 f0 01 a0 00 00 00 00 |.......&|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 6f 70 74 69 6f 6e | 20 74 6f 20 72 65 70 6c |--option| to repl|
|00000690| 61 79 20 68 61 6e 64 2c | 20 73 65 65 20 68 6f 77 |ay hand,| see how|
|000006a0| 20 4d 61 63 20 77 6f 75 | 6c 64 20 72 65 61 63 74 | Mac wou|ld react|
|000006b0| 20 74 6f 20 64 69 66 66 | 65 72 65 6e 74 20 62 65 | to diff|erent be|
|000006c0| 74 73 0d 2d 2d 2d 77 6f | 75 6c 64 20 61 6d 6b 65 |ts.---wo|uld amke|
|000006d0| 20 6d 6f 72 65 20 6d 6f | 6e 65 79 20 69 66 20 70 | more mo|ney if p|
|000006e0| 61 79 6d 65 6e 74 20 2d | 2d 3e 20 73 65 65 20 74 |ayment -|-> see t|
|000006f0| 68 65 20 73 63 72 69 70 | 74 2c 20 61 6e 64 20 74 |he scrip|t, and t|
|00000700| 68 65 20 73 63 72 69 70 | 74 20 77 61 73 20 67 6f |he scrip|t was go|
|00000710| 6f 64 0d 2d 2d 74 68 69 | 73 20 77 6f 75 6c 64 20 |od.--thi|s would |
|00000720| 62 65 20 66 61 73 74 65 | 72 20 69 66 20 73 6f 6d |be faste|r if som|
|00000730| 65 20 72 65 45 76 61 6c | 75 61 74 69 6f 6e 20 77 |e reEval|uation w|
|00000740| 61 73 20 64 6f 6e 65 20 | 2a 64 75 72 69 6e 67 2a |as done |*during*|
|00000750| 20 74 68 65 20 64 72 61 | 77 2c 20 65 2e 67 2e 2c | the dra|w, e.g.,|
|00000760| 20 6f 66 20 74 68 65 4b | 69 6e 64 73 0d 2d 2d 64 | of theK|inds.--d|
|00000770| 6f 20 62 65 74 74 69 6e | 67 20 77 69 74 68 20 62 |o bettin|g with b|
|00000780| 65 74 74 69 6e 67 20 2a | 73 74 72 61 74 65 67 69 |etting *|strategi|
|00000790| 65 73 2a 20 6f 72 20 63 | 61 74 65 67 6f 72 69 65 |es* or c|ategorie|
|000007a0| 73 2c 20 69 2e 65 2e 2c | 0d 2d 2d 66 75 74 75 72 |s, i.e.,|.--futur|
|000007b0| 65 20 69 6d 70 72 6f 76 | 65 6d 65 6e 74 6d 20 6e |e improv|ementm n|
|000007c0| 6f 74 20 69 6d 70 6c 65 | 6d 65 6e 74 65 64 20 61 |ot imple|mented a|
|000007d0| 73 20 31 2f 32 35 2f 39 | 37 3a 20 72 65 74 75 72 |s 1/25/9|7: retur|
|000007e0| 6e 20 22 73 61 6e 64 62 | 61 67 22 20 6f 72 20 22 |n "sandb|ag" or "|
|000007f0| 63 68 61 73 65 22 20 6f | 72 20 22 73 74 72 69 6e |chase" o|r "strin|
|00000800| 67 20 61 6c 6f 6e 67 22 | 2c 20 61 6e 64 20 74 68 |g along"|, and th|
|00000810| 65 6e 20 66 6f 72 6d 75 | 6c 61 74 65 20 62 65 74 |en formu|late bet|
|00000820| 0d 2d 2d 61 63 63 6f 72 | 64 69 6e 67 6c 79 20 28 |.--accor|dingly (|
|00000830| 69 2e 65 2c 20 64 6f 6e | 27 74 20 62 6f 74 68 65 |i.e, don|'t bothe|
|00000840| 72 20 73 74 72 69 6e 67 | 69 6e 67 20 61 6c 6f 6e |r string|ing alon|
|00000850| 67 20 6f 72 20 63 68 61 | 73 69 6e 67 0d 2d 2d 69 |g or cha|sing.--i|
|00000860| 66 20 70 6f 74 20 69 73 | 20 68 75 67 65 2e 20 61 |f pot is| huge. a|
|00000870| 64 76 61 6e 74 61 67 65 | 3a 20 6f 70 74 69 6f 6e |dvantage|: option|
|00000880| 20 74 6f 20 64 69 73 70 | 6c 61 79 20 22 74 68 6f | to disp|lay "tho|
|00000890| 75 67 68 74 73 22 20 73 | 74 72 61 74 65 67 79 20 |ughts" s|trategy |
|000008a0| 74 6f 20 70 6c 61 79 65 | 72 0d 0d 6f 6e 20 6f 70 |to playe|r..on op|
|000008b0| 65 6e 53 74 61 63 6b 0d | 67 6f 20 63 64 20 22 70 |enStack.|go cd "p|
|000008c0| 6c 61 79 22 0d 73 65 74 | 75 70 0d 6e 61 6d 65 41 |lay".set|up.nameA|
|000008d0| 63 74 69 6f 6e 20 22 44 | 65 61 6c 22 0d 73 65 74 |ction "D|eal".set|
|000008e0| 20 74 6f 70 20 6f 66 20 | 6d 73 67 20 74 6f 20 28 | top of |msg to (|
|000008f0| 62 6f 74 74 6f 6d 20 6f | 66 20 74 68 69 73 20 63 |bottom o|f this c|
|00000900| 64 29 2b 31 35 0d 65 6e | 64 20 6f 70 65 6e 53 74 |d)+15.en|d openSt|
|00000910| 61 63 6b 0d 0d 6f 6e 20 | 63 6c 6f 73 65 53 74 61 |ack..on |closeSta|
|00000920| 63 6b 0d 47 4c 4f 42 41 | 4c 20 74 68 65 50 6f 74 |ck.GLOBA|L thePot|
|00000930| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 67 6f 20 |.lock sc|reen.go |
|00000940| 63 64 20 22 70 6c 61 79 | 22 0d 70 75 74 20 30 20 |cd "play|".put 0 |
|00000950| 69 6e 74 6f 20 74 68 65 | 50 6f 74 0d 63 6c 65 61 |into the|Pot.clea|
|00000960| 72 42 65 74 73 0d 70 75 | 74 20 30 20 69 6e 74 6f |rBets.pu|t 0 into|
|00000970| 20 63 64 20 66 6c 64 20 | 22 70 6f 74 22 20 6f 66 | cd fld |"pot" of|
|00000980| 20 63 64 20 22 70 6c 61 | 79 22 0d 64 6f 6e 65 0d | cd "pla|y".done.|
|00000990| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 70 61 |unlock s|creen.pa|
|000009a0| 73 73 20 63 6c 6f 73 65 | 53 74 61 63 6b 0d 65 6e |ss close|Stack.en|
|000009b0| 64 20 63 6c 6f 73 65 53 | 74 61 63 6b 0d 0d 6f 6e |d closeS|tack..on|
|000009c0| 20 63 68 65 63 6b 53 69 | 7a 65 20 76 65 72 69 66 | checkSi|ze verif|
|000009d0| 79 0d 70 75 74 20 74 68 | 65 20 66 72 65 65 53 69 |y.put th|e freeSi|
|000009e0| 7a 65 20 6f 66 20 74 68 | 69 73 20 73 74 61 63 6b |ze of th|is stack|
|000009f0| 20 69 6e 74 6f 20 77 61 | 73 74 65 0d 70 75 74 20 | into wa|ste.put |
|00000a00| 77 61 73 74 65 20 3e 20 | 28 2e 35 20 2a 20 74 68 |waste > |(.5 * th|
|00000a10| 65 20 73 69 7a 65 20 6f | 66 20 74 68 69 73 20 73 |e size o|f this s|
|00000a20| 74 61 63 6b 29 20 69 6e | 74 6f 20 62 6c 6f 61 74 |tack) in|to bloat|
|00000a30| 0d 70 75 74 20 77 61 73 | 74 65 20 3e 20 28 2e 32 |.put was|te > (.2|
|00000a40| 20 2a 20 74 68 65 20 64 | 69 73 6b 53 70 61 63 65 | * the d|iskSpace|
|00000a50| 29 20 69 6e 74 6f 20 73 | 77 65 6c 6c 0d 69 66 20 |) into s|well.if |
|00000a60| 6e 6f 74 20 28 62 6c 6f | 61 74 20 6f 72 20 73 77 |not (blo|at or sw|
|00000a70| 65 6c 6c 29 20 74 68 65 | 6e 20 65 78 69 74 20 63 |ell) the|n exit c|
|00000a80| 68 65 63 6b 53 69 7a 65 | 0d 70 75 74 20 76 65 72 |heckSize|.put ver|
|00000a90| 69 66 79 20 ad 20 66 61 | 6c 73 65 20 69 6e 74 6f |ify . fa|lse into|
|00000aa0| 20 76 65 72 69 66 79 20 | 2d 2d 64 65 66 61 75 6c | verify |--defaul|
|00000ab0| 74 20 69 73 20 74 72 75 | 65 0d 69 66 20 76 65 72 |t is tru|e.if ver|
|00000ac0| 69 66 79 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |ify then|.answer |
|00000ad0| 22 54 68 69 73 20 73 74 | 61 63 6b 20 69 73 20 62 |"This st|ack is b|
|00000ae0| 6c 6f 61 74 65 64 20 61 | 6e 64 2f 6f 72 20 73 77 |loated a|nd/or sw|
|00000af0| 6f 6c 6c 65 6e 2e 22 20 | 77 69 74 68 20 22 57 68 |ollen." |with "Wh|
|00000b00| 61 74 65 76 65 72 22 20 | 6f 72 20 22 43 6f 6d 70 |atever" |or "Comp|
|00000b10| 61 63 74 22 0d 69 66 20 | 69 74 20 ad 20 22 63 6f |act".if |it . "co|
|00000b20| 6d 70 61 63 74 22 20 74 | 68 65 6e 20 65 78 69 74 |mpact" t|hen exit|
|00000b30| 20 63 68 65 63 6b 53 69 | 7a 65 0d 65 6e 64 20 69 | checkSi|ze.end i|
|00000b40| 66 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 70 75 |f.lock s|creen.pu|
|00000b50| 74 20 74 68 65 20 75 73 | 65 72 4c 65 76 65 6c 20 |t the us|erLevel |
|00000b60| 69 6e 74 6f 20 73 61 76 | 65 64 4c 65 76 65 6c 0d |into sav|edLevel.|
|00000b70| 73 65 74 20 74 68 65 20 | 75 73 65 72 6c 65 76 65 |set the |userleve|
|00000b80| 6c 20 74 6f 20 35 0d 64 | 6f 4d 65 6e 75 20 22 63 |l to 5.d|oMenu "c|
|00000b90| 6f 6d 70 61 63 74 20 73 | 74 61 63 6b 22 0d 73 65 |ompact s|tack".se|
|00000ba0| 74 20 74 68 65 20 75 73 | 65 72 4c 65 76 65 6c 20 |t the us|erLevel |
|00000bb0| 74 6f 20 73 61 76 65 64 | 4c 65 76 65 6c 0d 75 6e |to saved|Level.un|
|00000bc0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 65 6e 64 20 |lock scr|een.end |
|00000bd0| 63 68 65 63 6b 53 69 7a | 65 0d 0d 6f 6e 20 72 65 |checkSiz|e..on re|
|00000be0| 74 75 72 6e 4b 65 79 0d | 69 66 20 74 68 65 20 73 |turnKey.|if the s|
|00000bf0| 68 69 66 74 4b 65 79 20 | 3d 20 64 6f 77 6e 20 74 |hiftKey |= down t|
|00000c00| 68 65 6e 20 70 61 73 73 | 20 72 65 74 75 72 6e 4b |hen pass| returnK|
|00000c10| 65 79 0d 70 75 74 20 6d | 73 67 20 69 6e 74 6f 20 |ey.put m|sg into |
|00000c20| 73 6f 6d 65 54 65 78 74 | 0d 69 66 20 63 68 61 72 |someText|.if char|
|00000c30| 20 31 20 6f 66 20 73 6f | 6d 65 54 65 78 74 20 3d | 1 of so|meText =|
|00000c40| 20 22 d7 22 20 74 68 65 | 6e 0d 70 75 74 20 22 d7 | "." the|n.put ".|
|00000c50| 20 57 61 73 20 74 68 65 | 72 65 20 73 6f 6d 65 74 | Was the|re somet|
|00000c60| 68 69 6e 67 20 79 6f 75 | 20 77 61 6e 74 65 64 20 |hing you| wanted |
|00000c70| 74 6f 20 73 61 79 3f 22 | 0d 65 78 69 74 20 72 65 |to say?"|.exit re|
|00000c80| 74 75 72 6e 4b 65 79 0d | 65 6e 64 20 69 66 0d 72 |turnKey.|end if.r|
|00000c90| 65 70 65 61 74 0d 67 65 | 74 20 6f 66 66 73 65 74 |epeat.ge|t offset|
|00000ca0| 28 71 75 6f 74 65 2c 73 | 6f 6d 65 54 65 78 74 29 |(quote,s|omeText)|
|00000cb0| 0d 69 66 20 69 74 20 3d | 20 30 20 74 68 65 6e 20 |.if it =| 0 then |
|00000cc0| 65 78 69 74 20 72 65 70 | 65 61 74 0d 64 65 6c 65 |exit rep|eat.dele|
|00000cd0| 74 65 20 63 68 61 72 20 | 69 74 20 6f 66 20 73 6f |te char |it of so|
|00000ce0| 6d 65 54 65 78 74 0d 65 | 6e 64 20 72 65 70 65 61 |meText.e|nd repea|
|00000cf0| 74 0d 73 65 6e 64 20 22 | 72 65 73 70 6f 6e 64 22 |t.send "|respond"|
|00000d00| 20 26 26 20 71 75 6f 74 | 65 20 26 20 73 6f 6d 65 | && quot|e & some|
|00000d10| 54 65 78 74 20 26 20 71 | 75 6f 74 65 20 74 6f 20 |Text & q|uote to |
|00000d20| 62 74 6e 20 22 65 6c 69 | 7a 61 22 20 6f 66 20 63 |btn "eli|za" of c|
|00000d30| 64 20 22 70 6c 61 79 22 | 0d 65 6e 64 20 72 65 74 |d "play"|.end ret|
|00000d40| 75 72 6e 4b 65 79 0d 0d | 6f 6e 20 65 6e 74 65 72 |urnKey..|on enter|
|00000d50| 4b 65 79 0d 72 65 74 75 | 72 6e 4b 65 79 0d 65 6e |Key.retu|rnKey.en|
|00000d60| 64 20 65 6e 74 65 72 4b | 65 79 0d 0d 2d 2d 69 66 |d enterK|ey..--if|
|00000d70| 20 6d 6f 72 65 20 73 70 | 65 65 64 20 6e 65 65 64 | more sp|eed need|
|00000d80| 65 64 2c 20 64 65 61 6c | 20 68 61 6e 64 73 20 61 |ed, deal| hands a|
|00000d90| 68 65 61 64 20 6f 66 20 | 74 69 6d 65 20 68 65 72 |head of |time her|
|00000da0| 65 0d 6f 6e 20 69 64 6c | 65 0d 47 4c 4f 42 41 4c |e.on idl|e.GLOBAL|
|00000db0| 20 74 68 65 44 65 63 6b | 2c 20 74 68 65 46 75 74 | theDeck|, theFut|
|00000dc0| 75 72 65 0d 69 66 20 74 | 68 65 44 65 63 6b 20 3d |ure.if t|heDeck =|
|00000dd0| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 65 78 69 74 | empty t|hen exit|
|00000de0| 20 69 64 6c 65 0d 65 6e | 64 20 69 64 6c 65 0d 0d | idle.en|d idle..|
|00000df0| 6f 6e 20 73 65 74 55 70 | 0d 47 4c 4f 42 41 4c 20 |on setUp|.GLOBAL |
|00000e00| 74 68 65 4c 69 6d 69 74 | 2c 20 74 68 65 50 6f 74 |theLimit|, thePot|
|00000e10| 2c 20 74 68 65 4d 61 63 | 44 65 61 6c 74 2c 20 74 |, theMac|Dealt, t|
|00000e20| 68 65 41 64 6a 75 73 74 | 6d 65 6e 74 0d 73 65 74 |heAdjust|ment.set|
|00000e30| 50 6c 61 79 65 72 44 61 | 74 61 0d 70 75 74 20 30 |PlayerDa|ta.put 0|
|00000e40| 20 69 6e 74 6f 20 74 68 | 65 41 64 6a 75 73 74 6d | into th|eAdjustm|
|00000e50| 65 6e 74 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |ent.put |empty in|
|00000e60| 74 6f 20 63 64 20 66 6c | 64 20 22 72 65 70 6f 72 |to cd fl|d "repor|
|00000e70| 74 22 0d 6d 61 6b 65 44 | 65 63 6b 0d 69 66 20 63 |t".makeD|eck.if c|
|00000e80| 64 20 66 6c 64 20 22 68 | 75 6d 61 6e 20 73 74 61 |d fld "h|uman sta|
|00000e90| 73 68 22 20 69 73 20 6e | 6f 74 20 61 20 6e 75 6d |sh" is n|ot a num|
|00000ea0| 62 65 72 20 74 68 65 6e | 20 70 75 74 20 31 30 30 |ber then| put 100|
|00000eb0| 20 69 6e 74 6f 20 63 64 | 20 66 6c 64 20 22 68 75 | into cd| fld "hu|
|00000ec0| 6d 61 6e 20 73 74 61 73 | 68 22 0d 70 75 74 20 33 |man stas|h".put 3|
|00000ed0| 20 69 6e 74 6f 20 74 68 | 65 4c 69 6d 69 74 0d 70 | into th|eLimit.p|
|00000ee0| 75 74 20 30 20 69 6e 74 | 6f 20 74 68 65 50 6f 74 |ut 0 int|o thePot|
|00000ef0| 0d 70 75 74 20 61 6e 79 | 20 69 74 65 6d 20 6f 66 |.put any| item of|
|00000f00| 20 22 74 72 75 65 2c 66 | 61 6c 73 65 22 20 69 6e | "true,f|alse" in|
|00000f10| 74 6f 20 74 68 65 4d 61 | 63 44 65 61 6c 74 0d 65 |to theMa|cDealt.e|
|00000f20| 6e 64 20 73 65 74 55 70 | 0d 0d 6f 6e 20 6d 61 6b |nd setUp|..on mak|
|00000f30| 65 44 65 63 6b 0d 47 4c | 4f 42 41 4c 20 74 68 65 |eDeck.GL|OBAL the|
|00000f40| 44 65 63 6b 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |Deck.put| empty i|
|00000f50| 6e 74 6f 20 74 68 65 44 | 65 63 6b 0d 70 75 74 20 |nto theD|eck.put |
|00000f60| 22 43 44 48 53 22 20 69 | 6e 74 6f 20 73 75 69 74 |"CDHS" i|nto suit|
|00000f70| 73 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 73 75 |s.repeat| with su|
|00000f80| 69 74 20 3d 20 31 20 74 | 6f 20 34 0d 72 65 70 65 |it = 1 t|o 4.repe|
|00000f90| 61 74 20 77 69 74 68 20 | 63 64 4e 75 6d 20 3d 20 |at with |cdNum = |
|00000fa0| 31 20 74 6f 20 31 33 0d | 70 75 74 20 63 64 4e 75 |1 to 13.|put cdNu|
|00000fb0| 6d 20 26 26 20 63 68 61 | 72 20 73 75 69 74 20 6f |m && cha|r suit o|
|00000fc0| 66 20 73 75 69 74 73 20 | 26 20 63 6f 6d 6d 61 20 |f suits |& comma |
|00000fd0| 61 66 74 65 72 20 74 68 | 65 44 65 63 6b 0d 65 6e |after th|eDeck.en|
|00000fe0| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 72 65 70 |d repeat|.end rep|
|00000ff0| 65 61 74 0d 70 75 74 20 | 22 2a 20 2a 22 20 61 66 |eat.put |"* *" af|
|00001000| 74 65 72 20 74 68 65 44 | 65 63 6b 20 2d 2d 74 68 |ter theD|eck --th|
|00001010| 65 20 6a 6f 6b 65 72 0d | 65 6e 64 20 6d 61 6b 65 |e joker.|end make|
|00001020| 44 65 63 6b 0d 0d 6f 6e | 20 73 65 74 50 6c 61 79 |Deck..on| setPlay|
|00001030| 65 72 44 61 74 61 0d 47 | 4c 4f 42 41 4c 20 74 68 |erData.G|LOBAL th|
|00001040| 65 42 65 74 4e 75 6d 31 | 2c 20 74 68 65 42 65 74 |eBetNum1|, theBet|
|00001050| 4e 75 6d 32 2c 20 74 68 | 65 42 65 74 4e 75 6d 4c |Num2, th|eBetNumL|
|00001060| 6f 77 31 2c 74 68 65 42 | 65 74 4e 75 6d 4c 6f 77 |ow1,theB|etNumLow|
|00001070| 32 0d 47 4c 4f 42 41 4c | 20 74 68 65 44 72 61 77 |2.GLOBAL| theDraw|
|00001080| 45 72 72 6f 72 2c 20 74 | 68 65 46 69 6e 61 6c 45 |Error, t|heFinalE|
|00001090| 72 72 6f 72 2c 20 74 68 | 65 44 72 61 77 45 72 72 |rror, th|eDrawErr|
|000010a0| 6f 72 4c 6f 77 2c 20 74 | 68 65 46 69 6e 61 6c 45 |orLow, t|heFinalE|
|000010b0| 72 72 6f 72 4c 6f 77 0d | 70 75 74 20 63 64 20 66 |rrorLow.|put cd f|
|000010c0| 6c 64 20 22 61 64 6a 75 | 73 74 6d 65 6e 74 73 22 |ld "adju|stments"|
|000010d0| 20 69 6e 74 6f 20 70 6c | 61 79 65 72 44 61 74 61 | into pl|ayerData|
|000010e0| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d |.repeat |with i =|
|000010f0| 20 31 20 74 6f 20 6e 75 | 6d 62 65 72 20 6f 66 20 | 1 to nu|mber of |
|00001100| 6c 69 6e 65 73 20 69 6e | 20 70 6c 61 79 65 72 44 |lines in| playerD|
|00001110| 61 74 61 0d 70 75 74 20 | 69 74 65 6d 20 32 20 6f |ata.put |item 2 o|
|00001120| 66 20 6c 69 6e 65 20 69 | 20 6f 66 20 70 6c 61 79 |f line i| of play|
|00001130| 65 72 44 61 74 61 20 69 | 6e 74 6f 20 67 6c 6f 62 |erData i|nto glob|
|00001140| 61 6c 56 61 6c 75 65 0d | 69 66 20 67 6c 6f 62 61 |alValue.|if globa|
|00001150| 6c 56 61 6c 75 65 20 3d | 20 65 6d 70 74 79 20 74 |lValue =| empty t|
|00001160| 68 65 6e 20 70 75 74 20 | 30 20 69 6e 74 6f 20 67 |hen put |0 into g|
|00001170| 6c 6f 62 61 6c 56 61 6c | 75 65 0d 70 75 74 20 69 |lobalVal|ue.put i|
|00001180| 74 65 6d 20 31 20 6f 66 | 20 6c 69 6e 65 20 69 20 |tem 1 of| line i |
|00001190| 6f 66 20 70 6c 61 79 65 | 72 44 61 74 61 20 69 6e |of playe|rData in|
|000011a0| 74 6f 20 67 6c 6f 62 61 | 6c 4e 61 6d 65 0d 64 6f |to globa|lName.do|
|000011b0| 20 22 70 75 74 22 20 26 | 26 20 67 6c 6f 62 61 6c | "put" &|& global|
|000011c0| 56 61 6c 75 65 20 26 26 | 20 22 69 6e 74 6f 22 20 |Value &&| "into" |
|000011d0| 26 26 20 67 6c 6f 62 61 | 6c 4e 61 6d 65 0d 2d 2d |&& globa|lName.--|
|000011e0| 2d 61 6e 73 77 65 72 20 | 67 6c 6f 62 61 6c 4e 61 |-answer |globalNa|
|000011f0| 6d 65 20 26 26 20 76 61 | 6c 75 65 28 67 6c 6f 62 |me && va|lue(glob|
|00001200| 61 6c 6e 61 6d 65 29 0d | 65 6e 64 20 72 65 70 65 |alname).|end repe|
|00001210| 61 74 0d 65 6e 64 20 73 | 65 74 50 6c 61 79 65 72 |at.end s|etPlayer|
|00001220| 44 61 74 61 0d 0d 6f 6e | 20 64 6f 6e 65 0d 47 4c |Data..on| done.GL|
|00001230| 4f 42 41 4c 20 74 68 65 | 44 72 61 77 45 72 72 6f |OBAL the|DrawErro|
|00001240| 72 2c 74 68 65 42 65 74 | 4e 75 6d 31 2c 74 68 65 |r,theBet|Num1,the|
|00001250| 46 69 6e 61 6c 45 72 72 | 6f 72 2c 74 68 65 42 65 |FinalErr|or,theBe|
|00001260| 74 4e 75 6d 32 0d 47 4c | 4f 42 41 4c 20 74 68 65 |tNum2.GL|OBAL the|
|00001270| 44 72 61 77 45 72 72 6f | 72 4c 6f 77 2c 74 68 65 |DrawErro|rLow,the|
|00001280| 42 65 74 4e 75 6d 4c 6f | 77 31 2c 74 68 65 46 69 |BetNumLo|w1,theFi|
|00001290| 6e 61 6c 45 72 72 6f 72 | 4c 6f 77 2c 74 68 65 42 |nalError|Low,theB|
|000012a0| 65 74 4e 75 6d 4c 6f 77 | 32 0d 70 75 74 20 63 64 |etNumLow|2.put cd|
|000012b0| 20 66 6c 64 20 22 61 64 | 6a 75 73 74 6d 65 6e 74 | fld "ad|justment|
|000012c0| 73 22 20 6f 66 20 63 64 | 20 22 70 6c 61 79 22 20 |s" of cd| "play" |
|000012d0| 69 6e 74 6f 20 70 6c 61 | 79 65 72 44 61 74 61 0d |into pla|yerData.|
|000012e0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|000012f0| 31 20 74 6f 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |1 to num|ber of l|
|00001300| 69 6e 65 73 20 69 6e 20 | 70 6c 61 79 65 72 44 61 |ines in |playerDa|
|00001310| 74 61 0d 70 75 74 20 6c | 69 6e 65 20 69 20 6f 66 |ta.put l|ine i of|
|00001320| 20 70 6c 61 79 65 72 44 | 61 74 61 20 69 6e 74 6f | playerD|ata into|
|00001330| 20 63 61 74 0d 70 75 74 | 20 76 61 6c 75 65 28 69 | cat.put| value(i|
|00001340| 74 65 6d 20 31 20 6f 66 | 20 63 61 74 29 20 69 6e |tem 1 of| cat) in|
|00001350| 74 6f 20 69 74 65 6d 20 | 32 20 6f 66 20 6c 69 6e |to item |2 of lin|
|00001360| 65 20 69 20 6f 66 20 70 | 6c 61 79 65 72 44 61 74 |e i of p|layerDat|
|00001370| 61 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 70 75 74 |a.end re|peat.put|
|00001380| 20 70 6c 61 79 65 72 44 | 61 74 61 20 69 6e 74 6f | playerD|ata into|
|00001390| 20 63 64 20 66 6c 64 20 | 22 61 64 6a 75 73 74 6d | cd fld |"adjustm|
|000013a0| 65 6e 74 73 22 20 6f 66 | 20 63 64 20 22 70 6c 61 |ents" of| cd "pla|
|000013b0| 79 22 0d 65 6e 64 20 64 | 6f 6e 65 0d 0d 6f 6e 20 |y".end d|one..on |
|000013c0| 6e 61 6d 65 41 63 74 69 | 6f 6e 20 6d 79 4e 61 6d |nameActi|on myNam|
|000013d0| 65 0d 47 4c 4f 42 41 4c | 20 74 68 65 41 6d 74 44 |e.GLOBAL| theAmtD|
|000013e0| 75 65 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 69 |ue.lock |screen.i|
|000013f0| 66 20 6d 79 4e 61 6d 65 | 20 3d 20 22 63 61 6c 6c |f myName| = "call|
|00001400| 22 20 74 68 65 6e 20 73 | 65 74 20 6e 61 6d 65 20 |" then s|et name |
|00001410| 6f 66 20 62 74 6e 20 69 | 64 20 35 20 74 6f 20 22 |of btn i|d 5 to "|
|00001420| 42 65 74 20 24 22 20 26 | 20 74 68 65 41 6d 74 44 |Bet $" &| theAmtD|
|00001430| 75 65 0d 65 6c 73 65 20 | 73 65 74 20 6e 61 6d 65 |ue.else |set name|
|00001440| 20 6f 66 20 62 74 6e 20 | 69 64 20 35 20 74 6f 20 | of btn |id 5 to |
|00001450| 6d 79 4e 61 6d 65 0d 73 | 65 74 20 69 63 6f 6e 20 |myName.s|et icon |
|00001460| 6f 66 20 62 74 6e 20 69 | 64 20 35 20 74 6f 20 77 |of btn i|d 5 to w|
|00001470| 6f 72 64 20 31 20 6f 66 | 20 6d 79 4e 61 6d 65 0d |ord 1 of| myName.|
|00001480| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00001490| 64 20 6e 61 6d 65 41 63 | 74 69 6f 6e 0d 0d 66 75 |d nameAc|tion..fu|
|000014a0| 6e 63 74 69 6f 6e 20 6f | 64 64 73 20 70 72 6f 6a |nction o|dds proj|
|000014b0| 52 61 6e 6b 2c 20 68 61 | 6e 64 52 61 6e 6b 0d 67 |Rank, ha|ndRank.g|
|000014c0| 6c 6f 62 61 6c 20 74 68 | 65 48 69 67 68 2c 20 74 |lobal th|eHigh, t|
|000014d0| 68 65 48 69 67 68 52 61 | 6e 6b 0d 69 66 20 68 61 |heHighRa|nk.if ha|
|000014e0| 6e 64 52 61 6e 6b 20 3d | 20 65 6d 70 74 79 20 74 |ndRank =| empty t|
|000014f0| 68 65 6e 20 70 75 74 20 | 74 68 65 48 69 67 68 52 |hen put |theHighR|
|00001500| 61 6e 6b 20 69 6e 74 6f | 20 68 61 6e 64 52 61 6e |ank into| handRan|
|00001510| 6b 0d 69 66 20 70 72 6f | 6a 52 61 6e 6b 20 3d 20 |k.if pro|jRank = |
|00001520| 68 61 6e 64 52 61 6e 6b | 20 74 68 65 6e 20 61 6e |handRank| then an|
|00001530| 73 77 65 72 20 22 65 72 | 72 6f 72 3a 20 70 72 6f |swer "er|ror: pro|
|00001540| 6a 20 72 61 6e 6b 20 3d | 20 68 61 6e 64 20 72 61 |j rank =| hand ra|
|00001550| 6e 6b 22 0d 70 75 74 20 | 62 61 73 69 63 4f 64 64 |nk".put |basicOdd|
|00001560| 73 28 70 72 6f 6a 52 61 | 6e 6b 2c 20 68 61 6e 64 |s(projRa|nk, hand|
|00001570| 52 61 6e 6b 29 20 69 6e | 74 6f 20 6f 64 64 42 61 |Rank) in|to oddBa|
|00001580| 6c 6c 0d 69 66 20 74 68 | 65 48 69 67 68 20 63 6f |ll.if th|eHigh co|
|00001590| 6e 74 61 69 6e 73 20 22 | 31 34 22 20 74 68 65 6e |ntains "|14" then|
|000015a0| 20 61 64 64 20 28 6f 64 | 64 42 61 6c 6c 20 2a 20 | add (od|dBall * |
|000015b0| 2e 31 32 29 20 74 6f 20 | 6f 64 64 42 61 6c 6c 20 |.12) to |oddBall |
|000015c0| 2d 2d 6a 6f 6b 65 72 20 | 69 6d 70 72 6f 76 65 73 |--joker |improves|
|000015d0| 20 76 61 6c 75 65 20 6f | 66 20 61 63 65 73 0d 72 | value o|f aces.r|
|000015e0| 65 74 75 72 6e 20 6f 64 | 64 42 61 6c 6c 0d 65 6e |eturn od|dBall.en|
|000015f0| 64 20 6f 64 64 73 0d 0d | 66 75 6e 63 74 69 6f 6e |d odds..|function|
|00001600| 20 62 61 73 69 63 4f 64 | 64 73 20 70 72 6f 6a 52 | basicOd|ds projR|
|00001610| 61 6e 6b 2c 20 68 61 6e | 64 52 61 6e 6b 0d 67 6c |ank, han|dRank.gl|
|00001620| 6f 62 61 6c 20 74 68 65 | 48 69 67 68 52 61 6e 6b |obal the|HighRank|
|00001630| 0d 69 66 20 68 61 6e 64 | 52 61 6e 6b 20 3d 20 65 |.if hand|Rank = e|
|00001640| 6d 70 74 79 20 74 68 65 | 6e 20 70 75 74 20 74 68 |mpty the|n put th|
|00001650| 65 48 69 67 68 52 61 6e | 6b 20 69 6e 74 6f 20 68 |eHighRan|k into h|
|00001660| 61 6e 64 52 61 6e 6b 0d | 0d 2d 2d 67 75 65 73 73 |andRank.|.--guess|
|00001670| 69 6e 67 21 0d 69 66 20 | 68 61 6e 64 52 61 6e 6b |ing!.if |handRank|
|00001680| 20 3d 20 2d 31 20 74 68 | 65 6e 20 2d 2d 6e 6f 20 | = -1 th|en --no |
|00001690| 70 61 69 72 0d 69 66 20 | 70 72 6f 6a 52 61 6e 6b |pair.if |projRank|
|000016a0| 20 3d 20 30 20 74 68 65 | 6e 20 72 65 74 75 72 6e | = 0 the|n return|
|000016b0| 20 31 2f 33 20 2b 20 31 | 2f 32 33 20 2b 20 31 2f | 1/3 + 1|/23 + 1/|
|000016c0| 32 33 20 2b 20 31 2f 34 | 35 30 20 2b 20 31 2f 39 |23 + 1/4|50 + 1/9|
|000016d0| 39 30 30 0d 69 66 20 70 | 72 6f 6a 52 61 6e 6b 20 |900.if p|rojRank |
|000016e0| 3d 20 31 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |= 1 then| return |
|000016f0| 31 2f 32 33 20 2b 20 31 | 2f 32 33 20 2b 20 31 2f |1/23 + 1|/23 + 1/|
|00001700| 34 35 30 20 2b 20 31 2f | 39 39 30 30 0d 69 66 20 |450 + 1/|9900.if |
|00001710| 70 72 6f 6a 52 61 6e 6b | 20 3d 20 32 20 74 68 65 |projRank| = 2 the|
|00001720| 6e 20 72 65 74 75 72 6e | 20 31 2f 32 33 20 2b 20 |n return| 1/23 + |
|00001730| 31 2f 34 35 30 20 2b 20 | 31 2f 39 39 30 30 0d 69 |1/450 + |1/9900.i|
|00001740| 66 20 70 72 6f 6a 52 61 | 6e 6b 20 b2 20 35 20 74 |f projRa|nk . 5 t|
|00001750| 68 65 6e 20 72 65 74 75 | 72 6e 20 31 2f 34 35 30 |hen retu|rn 1/450|
|00001760| 20 2b 20 31 2f 39 39 30 | 30 0d 69 66 20 70 72 6f | + 1/990|0.if pro|
|00001770| 6a 52 61 6e 6b 20 3d 20 | 36 20 74 68 65 6e 20 72 |jRank = |6 then r|
|00001780| 65 74 75 72 6e 20 31 2f | 39 39 30 30 0d 72 65 74 |eturn 1/|9900.ret|
|00001790| 75 72 6e 20 30 0d 65 6e | 64 20 69 66 0d 0d 69 66 |urn 0.en|d if..if|
|000017a0| 20 68 61 6e 64 52 61 6e | 6b 20 3d 20 30 20 74 68 | handRan|k = 0 th|
|000017b0| 65 6e 0d 69 66 20 70 72 | 6f 6a 52 61 6e 6b 20 3d |en.if pr|ojRank =|
|000017c0| 20 31 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 31 | 1 then |return 1|
|000017d0| 2f 36 20 2b 20 31 2f 38 | 20 2b 20 31 2f 39 38 20 |/6 + 1/8| + 1/98 |
|000017e0| 2b 20 31 2f 33 36 30 0d | 69 66 20 70 72 6f 6a 52 |+ 1/360.|if projR|
|000017f0| 61 6e 6b 20 3d 20 32 20 | 74 68 65 6e 20 72 65 74 |ank = 2 |then ret|
|00001800| 75 72 6e 20 31 2f 38 20 | 20 2b 31 2f 39 38 20 2b |urn 1/8 | +1/98 +|
|00001810| 20 31 2f 33 36 30 0d 69 | 66 20 70 72 6f 6a 52 61 | 1/360.i|f projRa|
|00001820| 6e 6b 20 b2 20 35 20 74 | 68 65 6e 20 72 65 74 75 |nk . 5 t|hen retu|
|00001830| 72 6e 20 31 2f 39 38 20 | 2b 20 31 2f 33 36 30 0d |rn 1/98 |+ 1/360.|
|00001840| 69 66 20 70 72 6f 6a 52 | 61 6e 6b 20 3d 20 36 20 |if projR|ank = 6 |
|00001850| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 31 2f 33 36 |then ret|urn 1/36|
|00001860| 30 0d 72 65 74 75 72 6e | 20 30 0d 65 6e 64 20 69 |0.return| 0.end i|
|00001870| 66 0d 0d 2d 2d 32 2d 70 | 61 69 72 3a 0d 69 66 20 |f..--2-p|air:.if |
|00001880| 68 61 6e 64 52 61 6e 6b | 20 3d 20 31 20 74 68 65 |handRank| = 1 the|
|00001890| 6e 0d 69 66 20 70 72 6f | 6a 52 61 6e 6b 20 b2 20 |n.if pro|jRank . |
|000018a0| 35 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 31 2f |5 then r|eturn 1/|
|000018b0| 31 32 0d 72 65 74 75 72 | 6e 20 30 0d 65 6e 64 20 |12.retur|n 0.end |
|000018c0| 69 66 0d 0d 2d 2d 20 74 | 72 69 70 73 3a 0d 69 66 |if..-- t|rips:.if|
|000018d0| 20 68 61 6e 64 52 61 6e | 6b 20 3d 20 32 20 74 68 | handRan|k = 2 th|
|000018e0| 65 6e 0d 69 66 20 70 72 | 6f 6a 52 61 6e 6b 20 b2 |en.if pr|ojRank .|
|000018f0| 20 35 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 31 | 5 then |return 1|
|00001900| 2f 31 37 20 2b 20 31 2f | 32 34 0d 69 66 20 70 72 |/17 + 1/|24.if pr|
|00001910| 6f 6a 52 61 6e 6b 20 3d | 20 36 20 74 68 65 6e 20 |ojRank =| 6 then |
|00001920| 72 65 74 75 72 6e 20 31 | 2f 32 34 0d 72 65 74 75 |return 1|/24.retu|
|00001930| 72 6e 20 30 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |rn 0.end| if.end |
|00001940| 62 61 73 69 63 4f 64 64 | 73 0d 0d 66 75 6e 63 74 |basicOdd|s..funct|
|00001950| 69 6f 6e 20 70 4f 64 64 | 73 20 70 72 6f 6a 52 61 |ion pOdd|s projRa|
|00001960| 6e 6b 2c 20 68 61 6e 64 | 52 61 6e 6b 0d 47 4c 4f |nk, hand|Rank.GLO|
|00001970| 42 41 4c 20 74 68 65 50 | 6f 74 65 6e 74 69 61 6c |BAL theP|otential|
|00001980| 48 69 67 68 2c 20 74 68 | 65 48 69 67 68 2c 20 74 |High, th|eHigh, t|
|00001990| 68 65 50 68 72 61 6e 6b | 0d 69 66 20 68 61 6e 64 |hePhrank|.if hand|
|000019a0| 52 61 6e 6b 20 3d 20 65 | 6d 70 74 79 20 74 68 65 |Rank = e|mpty the|
|000019b0| 6e 20 70 75 74 20 74 68 | 65 50 48 52 61 6e 6b 20 |n put th|ePHRank |
|000019c0| 69 6e 74 6f 20 68 61 6e | 64 52 61 6e 6b 0d 70 75 |into han|dRank.pu|
|000019d0| 74 20 28 74 68 65 50 6f | 74 65 6e 74 69 61 6c 48 |t (thePo|tentialH|
|000019e0| 69 67 68 20 63 6f 6e 74 | 61 69 6e 73 20 22 2a 22 |igh cont|ains "*"|
|000019f0| 29 20 69 6e 74 6f 20 6d | 61 6b 69 6e 67 4a 6f 6b |) into m|akingJok|
|00001a00| 65 0d 70 75 74 20 62 61 | 73 69 63 50 4f 64 64 73 |e.put ba|sicPOdds|
|00001a10| 28 70 72 6f 6a 52 61 6e | 6b 2c 68 61 6e 64 52 61 |(projRan|k,handRa|
|00001a20| 6e 6b 2c 6d 61 6b 69 6e | 67 4a 6f 6b 65 29 20 69 |nk,makin|gJoke) i|
|00001a30| 6e 74 6f 20 70 6f 74 65 | 6e 74 69 61 6c 4f 64 64 |nto pote|ntialOdd|
|00001a40| 73 0d 0d 69 66 20 6e 6f | 74 20 6d 61 6b 69 6e 67 |s..if no|t making|
|00001a50| 4a 6f 6b 65 20 74 68 65 | 6e 20 72 65 74 75 72 6e |Joke the|n return|
|00001a60| 20 70 6f 74 65 6e 74 69 | 61 6c 4f 64 64 73 0d 69 | potenti|alOdds.i|
|00001a70| 66 20 68 61 6e 64 52 61 | 6e 6b 20 3d 20 32 20 41 |f handRa|nk = 2 A|
|00001a80| 4e 44 20 70 72 6f 6a 52 | 61 6e 6b 20 3c 20 33 20 |ND projR|ank < 3 |
|00001a90| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 28 70 6f 74 |then ret|urn (pot|
|00001aa0| 65 6e 74 69 61 6c 4f 64 | 64 73 20 2a 20 31 2e 32 |entialOd|ds * 1.2|
|00001ab0| 29 20 2d 2d 20 33 20 73 | 74 72 20 66 6c 75 73 68 |) -- 3 s|tr flush|
|00001ac0| 0d 2d 2d 63 68 65 63 6b | 20 66 6f 72 20 70 61 69 |.--check| for pai|
|00001ad0| 72 20 6f 66 20 61 63 65 | 73 20 69 6e 20 70 6f 74 |r of ace|s in pot|
|00001ae0| 65 6e 74 69 61 6c 20 68 | 69 67 68 0d 67 65 74 20 |ential h|igh.get |
|00001af0| 73 65 61 72 63 68 28 74 | 68 65 50 6f 74 65 6e 74 |search(t|hePotent|
|00001b00| 69 61 6c 48 69 67 68 2c | 22 2c 31 34 20 22 2c 66 |ialHigh,|",14 ",f|
|00001b10| 61 6c 73 65 2c 22 61 6c | 6c 22 29 0d 70 75 74 20 |alse,"al|l").put |
|00001b20| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00001b30| 69 6e 20 69 74 20 69 6e | 74 6f 20 6e 75 6d 41 63 |in it in|to numAc|
|00001b40| 65 73 0d 69 66 20 6e 75 | 6d 41 63 65 73 20 3d 20 |es.if nu|mAces = |
|00001b50| 31 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 70 6f |1 then r|eturn po|
|00001b60| 74 65 6e 74 69 61 6c 4f | 64 64 73 0d 69 66 20 6e |tentialO|dds.if n|
|00001b70| 75 6d 41 63 65 73 20 3e | 20 32 20 74 68 65 6e 20 |umAces >| 2 then |
|00001b80| 61 6e 73 77 65 72 20 22 | 65 72 72 6f 72 3a 20 65 |answer "|error: e|
|00001b90| 78 63 65 73 73 20 61 63 | 65 73 20 69 6e 20 70 6f |xcess ac|es in po|
|00001ba0| 74 65 6e 74 69 61 6c 20 | 68 69 67 68 22 0d 69 66 |tential |high".if|
|00001bb0| 20 68 61 6e 64 52 61 6e | 6b 20 3d 20 32 20 41 4e | handRan|k = 2 AN|
|00001bc0| 44 20 70 72 6f 6a 52 61 | 6e 6b 20 3c 20 33 20 74 |D projRa|nk < 3 t|
|00001bd0| 68 65 6e 20 72 65 74 75 | 72 6e 20 28 70 6f 74 65 |hen retu|rn (pote|
|00001be0| 6e 74 69 61 6c 4f 64 64 | 73 20 2a 20 31 2e 34 29 |ntialOdd|s * 1.4)|
|00001bf0| 20 2d 2d 20 33 20 73 74 | 72 20 66 6c 75 73 68 0d | -- 3 st|r flush.|
|00001c00| 69 66 20 70 72 6f 6a 52 | 61 6e 6b 20 3c 20 33 20 |if projR|ank < 3 |
|00001c10| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 28 70 6f 74 |then ret|urn (pot|
|00001c20| 65 6e 74 69 61 6c 4f 64 | 64 73 20 2a 20 31 2e 33 |entialOd|ds * 1.3|
|00001c30| 29 0d 69 66 20 70 72 6f | 6a 52 61 6e 6b 20 3d 20 |).if pro|jRank = |
|00001c40| 35 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 28 70 |5 then r|eturn (p|
|00001c50| 6f 74 65 6e 74 69 61 6c | 4f 64 64 73 20 2a 20 31 |otential|Odds * 1|
|00001c60| 2e 31 35 29 20 2d 2d 68 | 6f 75 73 65 0d 72 65 74 |.15) --h|ouse.ret|
|00001c70| 75 72 6e 20 28 70 6f 74 | 65 6e 74 69 61 6c 4f 64 |urn (pot|entialOd|
|00001c80| 64 73 20 2a 20 31 2e 30 | 31 29 0d 65 6e 64 20 70 |ds * 1.0|1).end p|
|00001c90| 4f 64 64 73 0d 0d 2d 2d | 66 6f 72 20 73 74 72 61 |Odds..--|for stra|
|00001ca0| 69 67 68 74 73 20 26 20 | 66 6c 75 73 68 65 73 2c |ights & |flushes,|
|00001cb0| 20 66 72 6f 6d 20 70 6f | 74 65 6e 74 69 61 6c 73 | from po|tentials|
|00001cc0| 2c 20 65 2e 67 2e 2c 20 | 34 2d 73 74 72 61 69 67 |, e.g., |4-straig|
|00001cd0| 68 74 73 2c 20 65 74 63 | 2e 0d 66 75 6e 63 74 69 |hts, etc|..functi|
|00001ce0| 6f 6e 20 62 61 73 69 63 | 50 4f 64 64 73 20 70 72 |on basic|POdds pr|
|00001cf0| 6f 6a 52 61 6e 6b 2c 20 | 68 61 6e 64 52 61 6e 6b |ojRank, |handRank|
|00001d00| 2c 6a 6f 6b 65 72 0d 67 | 6c 6f 62 61 6c 20 74 68 |,joker.g|lobal th|
|00001d10| 65 50 68 72 61 6e 6b 0d | 69 66 20 68 61 6e 64 52 |ePhrank.|if handR|
|00001d20| 61 6e 6b 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |ank = em|pty then|
|00001d30| 20 70 75 74 20 74 68 65 | 50 48 52 61 6e 6b 20 69 | put the|PHRank i|
|00001d40| 6e 74 6f 20 68 61 6e 64 | 52 61 6e 6b 0d 0d 69 66 |nto hand|Rank..if|
|00001d50| 20 68 61 6e 64 52 61 6e | 6b 20 3d 20 30 20 74 68 | handRan|k = 0 th|
|00001d60| 65 6e 20 2d 2d 69 6e 73 | 69 64 65 20 73 74 72 61 |en --ins|ide stra|
|00001d70| 69 67 68 74 0d 69 66 20 | 70 72 6f 6a 52 61 6e 6b |ight.if |projRank|
|00001d80| 20 b2 20 33 20 74 68 65 | 6e 0d 69 66 20 6a 6f 6b | . 3 the|n.if jok|
|00001d90| 65 72 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 2e |er then |return .|
|00001da0| 31 0d 72 65 74 75 72 6e | 20 31 2f 31 32 0d 65 6e |1.return| 1/12.en|
|00001db0| 64 20 69 66 0d 72 65 74 | 75 72 6e 20 30 0d 65 6e |d if.ret|urn 0.en|
|00001dc0| 64 20 69 66 0d 0d 69 66 | 20 68 61 6e 64 52 61 6e |d if..if| handRan|
|00001dd0| 6b 20 3d 20 31 20 74 68 | 65 6e 20 2d 2d 34 2d 73 |k = 1 th|en --4-s|
|00001de0| 74 72 61 69 67 68 74 0d | 69 66 20 70 72 6f 6a 52 |traight.|if projR|
|00001df0| 61 6e 6b 20 b2 20 33 20 | 74 68 65 6e 0d 69 66 20 |ank . 3 |then.if |
|00001e00| 6a 6f 6b 65 72 20 74 68 | 65 6e 20 72 65 74 75 72 |joker th|en retur|
|00001e10| 6e 20 31 2f 32 0d 72 65 | 74 75 72 6e 20 31 2f 36 |n 1/2.re|turn 1/6|
|00001e20| 0d 65 6e 64 20 69 66 0d | 72 65 74 75 72 6e 20 30 |.end if.|return 0|
|00001e30| 0d 65 6e 64 20 69 66 0d | 0d 2d 2d 67 75 65 73 73 |.end if.|.--guess|
|00001e40| 69 6e 67 20 74 68 65 20 | 6f 64 64 73 21 0d 69 66 |ing the |odds!.if|
|00001e50| 20 68 61 6e 64 52 61 6e | 6b 20 3d 20 32 20 74 68 | handRan|k = 2 th|
|00001e60| 65 6e 20 2d 2d 33 2d 73 | 74 72 2d 66 6c 75 73 68 |en --3-s|tr-flush|
|00001e70| 2c 20 6e 6f 74 20 63 6c | 6f 73 65 64 0d 69 66 20 |, not cl|osed.if |
|00001e80| 70 72 6f 6a 52 61 6e 6b | 20 b2 20 32 20 74 68 65 |projRank| . 2 the|
|00001e90| 6e 20 72 65 74 75 72 6e | 20 31 2f 31 30 20 2b 20 |n return| 1/10 + |
|00001ea0| 31 2f 36 0d 69 66 20 70 | 72 6f 6a 52 61 6e 6b 20 |1/6.if p|rojRank |
|00001eb0| 3d 20 33 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |= 3 then| return |
|00001ec0| 31 2f 36 0d 69 66 20 70 | 72 6f 6a 52 61 6e 6b 20 |1/6.if p|rojRank |
|00001ed0| b2 20 37 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |. 7 then| return |
|00001ee0| 31 2f 35 30 0d 65 6e 64 | 20 69 66 0d 0d 69 66 20 |1/50.end| if..if |
|00001ef0| 68 61 6e 64 52 61 6e 6b | 20 3d 20 33 20 74 68 65 |handRank| = 3 the|
|00001f00| 6e 20 2d 2d 34 2d 66 6c | 75 73 68 0d 69 66 20 70 |n --4-fl|ush.if p|
|00001f10| 72 6f 6a 52 61 6e 6b 20 | b2 20 34 20 74 68 65 6e |rojRank |. 4 then|
|00001f20| 20 72 65 74 75 72 6e 20 | 31 2f 35 0d 72 65 74 75 | return |1/5.retu|
|00001f30| 72 6e 20 30 0d 65 6e 64 | 20 69 66 0d 0d 69 66 20 |rn 0.end| if..if |
|00001f40| 68 61 6e 64 52 61 6e 6b | 20 3d 20 34 20 74 68 65 |handRank| = 4 the|
|00001f50| 6e 20 2d 2d 69 6e 64 73 | 69 64 65 20 73 74 72 2d |n --inds|ide str-|
|00001f60| 66 6c 75 73 68 0d 69 66 | 20 70 72 6f 6a 52 61 6e |flush.if| projRan|
|00001f70| 6b 20 b2 20 33 20 74 68 | 65 6e 20 72 65 74 75 72 |k . 3 th|en retur|
|00001f80| 6e 20 31 2f 31 32 20 2b | 20 31 2f 35 20 2b 20 31 |n 1/12 +| 1/5 + 1|
|00001f90| 2f 34 37 0d 69 66 20 70 | 72 6f 6a 52 61 6e 6b 20 |/47.if p|rojRank |
|00001fa0| 3d 20 34 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |= 4 then| return |
|00001fb0| 31 2f 35 20 2b 20 31 2f | 34 37 0d 69 66 20 70 72 |1/5 + 1/|47.if pr|
|00001fc0| 6f 6a 52 61 6e 6b 20 b2 | 20 37 20 74 68 65 6e 20 |ojRank .| 7 then |
|00001fd0| 72 65 74 75 72 6e 20 31 | 2f 34 37 0d 72 65 74 75 |return 1|/47.retu|
|00001fe0| 72 6e 20 30 0d 65 6e 64 | 20 69 66 0d 0d 69 66 20 |rn 0.end| if..if |
|00001ff0| 68 61 6e 64 52 61 6e 6b | 20 3d 20 35 20 74 68 65 |handRank| = 5 the|
|00002000| 6e 20 2d 2d 6f 70 65 6e | 20 73 74 72 2d 66 6c 75 |n --open| str-flu|
|00002010| 73 68 0d 69 66 20 6a 6f | 6b 65 72 20 74 68 65 6e |sh.if jo|ker then|
|00002020| 20 67 65 74 20 2e 35 20 | 65 6c 73 65 20 67 65 74 | get .5 |else get|
|00002030| 20 31 2f 36 0d 69 66 20 | 70 72 6f 6a 52 61 6e 6b | 1/6.if |projRank|
|00002040| 20 b2 20 33 20 74 68 65 | 6e 20 72 65 74 75 72 6e | . 3 the|n return|
|00002050| 20 69 74 20 2b 20 31 2f | 35 20 2b 20 31 2f 32 34 | it + 1/|5 + 1/24|
|00002060| 0d 69 66 20 6a 6f 6b 65 | 72 20 74 68 65 6e 20 67 |.if joke|r then g|
|00002070| 65 74 20 2e 31 20 65 6c | 73 65 20 67 65 74 20 30 |et .1 el|se get 0|
|00002080| 20 2d 2d 49 20 67 75 65 | 73 73 65 64 20 74 68 69 | --I gue|ssed thi|
|00002090| 73 0d 69 66 20 70 72 6f | 6a 52 61 6e 6b 20 3d 20 |s.if pro|jRank = |
|000020a0| 34 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 31 2f |4 then r|eturn 1/|
|000020b0| 35 20 2b 20 31 2f 32 34 | 20 2b 20 69 74 0d 69 66 |5 + 1/24| + it.if|
|000020c0| 20 70 72 6f 6a 52 61 6e | 6b 20 b2 20 37 20 74 68 | projRan|k . 7 th|
|000020d0| 65 6e 20 72 65 74 75 72 | 6e 20 31 2f 32 34 20 2b |en retur|n 1/24 +|
|000020e0| 20 69 74 0d 72 65 74 75 | 72 6e 20 30 0d 65 6e 64 | it.retu|rn 0.end|
|000020f0| 20 69 66 0d 65 6e 64 20 | 62 61 73 69 63 50 4f 64 | if.end |basicPOd|
|00002100| 64 73 0d 0d 2d 2d 6e 65 | 65 64 20 66 61 63 74 6f |ds..--ne|ed facto|
|00002110| 72 20 69 6e 20 73 69 7a | 65 20 6f 66 20 70 6f 74 |r in siz|e of pot|
|00002120| 20 74 6f 20 73 74 72 61 | 74 65 67 79 2e 2e 2e 64 | to stra|tegy...d|
|00002130| 6f 6e 27 74 20 74 72 79 | 20 74 6f 20 63 68 61 73 |on't try| to chas|
|00002140| 65 20 69 66 20 70 6f 74 | 20 68 75 67 65 2e 0d 66 |e if pot| huge..f|
|00002150| 75 6e 63 74 69 6f 6e 20 | 62 65 74 53 69 7a 65 20 |unction |betSize |
|00002160| 63 65 69 6c 69 6e 67 2c | 20 66 6c 6f 6f 72 0d 47 |ceiling,| floor.G|
|00002170| 4c 4f 42 41 4c 20 74 68 | 65 4c 69 6d 69 74 0d 69 |LOBAL th|eLimit.i|
|00002180| 66 20 63 65 69 6c 69 6e | 67 20 3d 20 22 62 6c 75 |f ceilin|g = "blu|
|00002190| 66 66 3f 22 20 74 68 65 | 6e 20 72 65 74 75 72 6e |ff?" the|n return|
|000021a0| 20 30 0d 69 66 20 63 65 | 69 6c 69 6e 67 20 3d 20 | 0.if ce|iling = |
|000021b0| 65 6d 70 74 79 20 41 4e | 44 20 66 6c 6f 6f 72 20 |empty AN|D floor |
|000021c0| 3d 20 65 6d 70 74 79 20 | 74 68 65 6e 20 72 65 74 |= empty |then ret|
|000021d0| 75 72 6e 20 72 61 6e 64 | 6f 6d 28 74 68 65 4c 69 |urn rand|om(theLi|
|000021e0| 6d 69 74 29 0d 69 66 20 | 66 6c 6f 6f 72 20 3d 20 |mit).if |floor = |
|000021f0| 65 6d 70 74 79 20 74 68 | 65 6e 20 70 75 74 20 31 |empty th|en put 1|
|00002200| 20 69 6e 74 6f 20 66 6c | 6f 6f 72 0d 69 66 20 63 | into fl|oor.if c|
|00002210| 65 69 6c 69 6e 67 20 3d | 20 65 6d 70 74 79 20 74 |eiling =| empty t|
|00002220| 68 65 6e 20 70 75 74 20 | 31 20 69 6e 74 6f 20 63 |hen put |1 into c|
|00002230| 65 69 6c 69 6e 67 0d 0d | 70 75 74 20 72 61 6e 64 |eiling..|put rand|
|00002240| 6f 6d 28 63 65 69 6c 69 | 6e 67 2a 74 68 65 4c 69 |om(ceili|ng*theLi|
|00002250| 6d 69 74 29 20 2b 20 66 | 6c 6f 6f 72 2a 74 68 65 |mit) + f|loor*the|
|00002260| 4c 69 6d 69 74 20 69 6e | 74 6f 20 62 65 74 0d 70 |Limit in|to bet.p|
|00002270| 75 74 20 72 6f 75 6e 64 | 28 62 65 74 29 20 69 6e |ut round|(bet) in|
|00002280| 74 6f 20 62 65 74 0d 69 | 66 20 62 65 74 20 3e 20 |to bet.i|f bet > |
|00002290| 74 68 65 4c 69 6d 69 74 | 20 74 68 65 6e 20 72 65 |theLimit| then re|
|000022a0| 74 75 72 6e 20 74 68 65 | 4c 69 6d 69 74 0d 72 65 |turn the|Limit.re|
|000022b0| 74 75 72 6e 20 62 65 74 | 0d 65 6e 64 20 62 65 74 |turn bet|.end bet|
|000022c0| 53 69 7a 65 0d 0d d7 2d | 2d 68 61 6e 64 20 65 76 |Size...-|-hand ev|
|000022d0| 61 6c 75 61 74 69 6f 6e | 0d 0d 6f 6e 20 74 65 73 |aluation|..on tes|
|000022e0| 74 0d 69 66 20 6e 6f 74 | 20 76 69 73 69 62 6c 65 |t.if not| visible|
|000022f0| 20 6f 66 20 63 64 20 66 | 6c 64 20 22 74 65 73 74 | of cd f|ld "test|
|00002300| 22 20 74 68 65 6e 20 65 | 78 69 74 20 74 65 73 74 |" then e|xit test|
|00002310| 0d 67 6c 6f 62 61 6c 20 | 74 68 65 48 69 67 68 2c |.global |theHigh,|
|00002320| 74 68 65 48 69 67 68 52 | 61 6e 6b 2c 74 68 65 50 |theHighR|ank,theP|
|00002330| 6f 74 65 6e 74 69 61 6c | 48 69 67 68 2c 20 74 68 |otential|High, th|
|00002340| 65 50 68 72 61 6e 6b 0d | 67 6c 6f 62 61 6c 20 74 |ePhrank.|global t|
|00002350| 68 65 4c 6f 77 52 61 6e | 6b 2c 74 68 65 50 6f 74 |heLowRan|k,thePot|
|00002360| 65 6e 74 69 61 6c 4c 6f | 77 2c 74 68 65 50 6c 6f |entialLo|w,thePlo|
|00002370| 77 52 61 6e 6b 0d 73 65 | 74 20 63 75 72 73 6f 72 |wRank.se|t cursor|
|00002380| 20 74 6f 20 22 77 61 74 | 63 68 22 0d 2d 2d 20 20 | to "wat|ch".--  |
|00002390| 65 76 61 6c 75 61 74 65 | 0d 70 75 74 20 74 68 65 |evaluate|.put the|
|000023a0| 48 69 67 68 20 26 20 72 | 65 74 75 72 6e 20 26 20 |High & r|eturn & |
|000023b0| 74 68 65 48 69 67 68 52 | 61 6e 6b 20 26 20 72 65 |theHighR|ank & re|
|000023c0| 74 75 72 6e 20 26 c2 0d | 74 68 65 50 6f 74 65 6e |turn &..|thePoten|
|000023d0| 74 69 61 6c 48 69 67 68 | 20 26 20 72 65 74 75 72 |tialHigh| & retur|
|000023e0| 6e 20 26 20 74 68 65 50 | 68 72 61 6e 6b 20 69 6e |n & theP|hrank in|
|000023f0| 74 6f 20 63 64 20 66 6c | 64 20 22 74 65 73 74 22 |to cd fl|d "test"|
|00002400| 0d 70 75 74 20 72 65 74 | 75 72 6e 20 26 20 74 68 |.put ret|urn & th|
|00002410| 65 4c 6f 77 52 61 6e 6b | 20 26 20 72 65 74 75 72 |eLowRank| & retur|
|00002420| 6e 20 26 c2 0d 74 68 65 | 50 6f 74 65 6e 74 69 61 |n &..the|Potentia|
|00002430| 6c 4c 6f 77 20 26 20 72 | 65 74 75 72 6e 20 26 20 |lLow & r|eturn & |
|00002440| 74 68 65 50 6c 6f 77 52 | 61 6e 6b 20 61 66 74 65 |thePlowR|ank afte|
|00002450| 72 20 63 64 20 66 6c 64 | 20 22 74 65 73 74 22 0d |r cd fld| "test".|
|00002460| 65 6e 64 20 74 65 73 74 | 0d 0d 2d 2d 73 65 74 20 |end test|..--set |
|00002470| 67 6c 6f 62 61 6c 73 0d | 6f 6e 20 65 76 61 6c 75 |globals.|on evalu|
|00002480| 61 74 65 0d 67 6c 6f 62 | 61 6c 20 74 68 65 48 61 |ate.glob|al theHa|
|00002490| 6e 64 2c 20 74 68 65 4b | 69 6e 64 73 2c 20 67 6f |nd, theK|inds, go|
|000024a0| 74 4a 6f 6b 65 2c 20 74 | 68 65 50 72 6f 6a 52 61 |tJoke, t|heProjRa|
|000024b0| 6e 6b 0d 67 6c 6f 62 61 | 6c 20 74 68 65 48 69 67 |nk.globa|l theHig|
|000024c0| 68 2c 74 68 65 48 69 67 | 68 52 61 6e 6b 2c 74 68 |h,theHig|hRank,th|
|000024d0| 65 50 6f 74 65 6e 74 69 | 61 6c 48 69 67 68 2c 20 |ePotenti|alHigh, |
|000024e0| 74 68 65 50 48 52 61 6e | 6b 0d 67 6c 6f 62 61 6c |thePHRan|k.global|
|000024f0| 20 74 68 65 4c 6f 77 52 | 61 6e 6b 2c 74 68 65 50 | theLowR|ank,theP|
|00002500| 6f 74 65 6e 74 69 61 6c | 4c 6f 77 2c 20 74 68 65 |otential|Low, the|
|00002510| 50 6c 6f 77 52 61 6e 6b | 0d 0d 70 75 74 20 65 6d |PlowRank|..put em|
|00002520| 70 74 79 20 69 6e 74 6f | 20 74 68 65 48 69 67 68 |pty into| theHigh|
|00002530| 0d 70 75 74 20 2d 31 20 | 69 6e 74 6f 20 74 68 65 |.put -1 |into the|
|00002540| 48 69 67 68 52 61 6e 6b | 0d 70 75 74 20 65 6d 70 |HighRank|.put emp|
|00002550| 74 79 20 69 6e 74 6f 20 | 74 68 65 50 6f 74 65 6e |ty into |thePoten|
|00002560| 74 69 61 6c 48 69 67 68 | 0d 70 75 74 20 2d 31 20 |tialHigh|.put -1 |
|00002570| 69 6e 74 6f 20 74 68 65 | 50 48 52 61 6e 6b 0d 70 |into the|PHRank.p|
|00002580| 75 74 20 39 39 39 39 20 | 69 6e 74 6f 20 74 68 65 |ut 9999 |into the|
|00002590| 4c 6f 77 52 61 6e 6b 0d | 70 75 74 20 65 6d 70 74 |LowRank.|put empt|
|000025a0| 79 20 69 6e 74 6f 20 74 | 68 65 50 6f 74 65 6e 74 |y into t|hePotent|
|000025b0| 69 61 6c 4c 6f 77 0d 70 | 75 74 20 39 39 39 39 20 |ialLow.p|ut 9999 |
|000025c0| 69 6e 74 6f 20 74 68 65 | 50 6c 6f 77 52 61 6e 6b |into the|PlowRank|
|000025d0| 0d 0d 70 75 74 20 28 74 | 68 65 48 61 6e 64 20 63 |..put (t|heHand c|
|000025e0| 6f 6e 74 61 69 6e 73 20 | 22 2a 22 29 20 69 6e 74 |ontains |"*") int|
|000025f0| 6f 20 67 6f 74 4a 6f 6b | 65 0d 69 66 20 67 6f 74 |o gotJok|e.if got|
|00002600| 4a 6f 6b 65 20 74 68 65 | 6e 20 70 75 74 20 2d 2e |Joke the|n put -.|
|00002610| 35 20 69 6e 74 6f 20 74 | 68 65 50 72 6f 6a 52 61 |5 into t|heProjRa|
|00002620| 6e 6b 20 65 6c 73 65 20 | 70 75 74 20 2d 2e 33 34 |nk else |put -.34|
|00002630| 20 69 6e 74 6f 20 74 68 | 65 50 72 6f 6a 52 61 6e | into th|eProjRan|
|00002640| 6b 0d 69 66 20 74 68 65 | 4b 69 6e 64 73 20 3d 20 |k.if the|Kinds = |
|00002650| 22 75 6e 65 76 61 6c 75 | 61 74 65 64 22 20 74 68 |"unevalu|ated" th|
|00002660| 65 6e 20 70 75 74 20 6d | 61 74 63 68 65 73 28 74 |en put m|atches(t|
|00002670| 68 65 48 61 6e 64 29 20 | 69 6e 74 6f 20 74 68 65 |heHand) |into the|
|00002680| 4b 69 6e 64 73 20 2d 2d | 70 61 69 72 73 2c 20 74 |Kinds --|pairs, t|
|00002690| 68 72 65 65 2d 6f 66 2d | 61 2d 6b 69 6e 64 2c 20 |hree-of-|a-kind, |
|000026a0| 65 74 63 2e 0d 0d 70 75 | 74 20 6b 69 6e 64 73 52 |etc...pu|t kindsR|
|000026b0| 61 6e 6b 28 74 68 65 4b | 69 6e 64 73 29 20 69 6e |ank(theK|inds) in|
|000026c0| 74 6f 20 68 69 67 68 52 | 61 6e 6b 0d 69 66 20 68 |to highR|ank.if h|
|000026d0| 69 67 68 52 61 6e 6b 20 | b3 20 31 20 74 68 65 6e |ighRank |. 1 then|
|000026e0| 0d 70 75 74 20 68 69 67 | 68 52 61 6e 6b 20 69 6e |.put hig|hRank in|
|000026f0| 74 6f 20 74 68 65 48 69 | 67 68 52 61 6e 6b 0d 70 |to theHi|ghRank.p|
|00002700| 75 74 20 74 68 65 4b 69 | 6e 64 73 20 69 6e 74 6f |ut theKi|nds into|
|00002710| 20 74 68 65 48 69 67 68 | 0d 70 75 74 20 28 74 68 | theHigh|.put (th|
|00002720| 65 48 69 67 68 20 63 6f | 6e 74 61 69 6e 73 20 22 |eHigh co|ntains "|
|00002730| 2a 22 29 20 69 6e 74 6f | 20 6d 61 6b 69 6e 67 4a |*") into| makingJ|
|00002740| 6f 6b 65 0d 69 66 20 6e | 6f 74 20 6d 61 6b 69 6e |oke.if n|ot makin|
|00002750| 67 4a 6f 6b 65 20 4f 52 | 20 74 68 65 48 69 67 68 |gJoke OR| theHigh|
|00002760| 52 61 6e 6b 20 3e 20 31 | 20 74 68 65 6e 20 65 78 |Rank > 1| then ex|
|00002770| 69 74 20 65 76 61 6c 75 | 61 74 65 0d 65 6e 64 20 |it evalu|ate.end |
|00002780| 69 66 0d 0d 2d 2d 63 68 | 65 63 6b 20 66 6f 72 20 |if..--ch|eck for |
|00002790| 74 68 65 20 6c 6f 77 2c | 20 6f 6e 6c 79 20 6c 6f |the low,| only lo|
|000027a0| 6f 6b 73 20 61 74 20 34 | 20 63 64 20 6c 6f 77 73 |oks at 4| cd lows|
|000027b0| 2e 2e 2e 73 68 6f 75 6c | 64 6e 27 74 20 62 6f 74 |...shoul|dn't bot|
|000027c0| 68 65 72 20 69 66 20 61 | 6c 72 65 61 64 79 20 68 |her if a|lready h|
|000027d0| 69 67 68 21 0d 69 66 20 | 77 6f 72 64 20 31 20 6f |igh!.if |word 1 o|
|000027e0| 66 20 69 74 65 6d 20 34 | 20 6f 66 20 74 68 65 48 |f item 4| of theH|
|000027f0| 61 6e 64 20 b2 20 39 20 | 74 68 65 6e 0d 70 75 74 |and . 9 |then.put|
|00002800| 20 6c 6f 77 42 61 6c 6c | 28 74 68 65 48 61 6e 64 | lowBall|(theHand|
|00002810| 29 20 69 6e 74 6f 20 6c | 6f 77 48 61 6e 64 0d 70 |) into l|owHand.p|
|00002820| 75 74 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |ut numbe|r of ite|
|00002830| 6d 73 20 69 6e 20 6c 6f | 77 48 61 6e 64 20 69 6e |ms in lo|wHand in|
|00002840| 74 6f 20 6e 75 6d 43 64 | 73 0d 69 66 20 6e 75 6d |to numCd|s.if num|
|00002850| 43 64 73 20 3d 20 35 20 | 74 68 65 6e 0d 67 65 74 |Cds = 5 |then.get|
|00002860| 20 28 77 6f 72 64 20 31 | 20 6f 66 20 69 74 65 6d | (word 1| of item|
|00002870| 20 35 20 6f 66 20 6c 6f | 77 48 61 6e 64 29 20 26 | 5 of lo|wHand) &|
|00002880| 20 28 77 6f 72 64 20 31 | 20 6f 66 20 69 74 65 6d | (word 1| of item|
|00002890| 20 34 20 6f 66 20 6c 6f | 77 48 61 6e 64 29 0d 70 | 4 of lo|wHand).p|
|000028a0| 75 74 20 69 74 20 69 6e | 74 6f 20 74 68 65 4c 6f |ut it in|to theLo|
|000028b0| 77 52 61 6e 6b 0d 65 6c | 73 65 0d 69 66 20 6e 75 |wRank.el|se.if nu|
|000028c0| 6d 43 64 73 20 3d 20 34 | 20 74 68 65 6e 0d 67 65 |mCds = 4| then.ge|
|000028d0| 74 20 28 77 6f 72 64 20 | 31 20 6f 66 20 69 74 65 |t (word |1 of ite|
|000028e0| 6d 20 34 20 6f 66 20 6c | 6f 77 48 61 6e 64 29 20 |m 4 of l|owHand) |
|000028f0| 26 20 28 77 6f 72 64 20 | 31 20 6f 66 20 69 74 65 |& (word |1 of ite|
|00002900| 6d 20 33 20 6f 66 20 6c | 6f 77 48 61 6e 64 29 0d |m 3 of l|owHand).|
|00002910| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 74 68 65 50 |put it i|nto theP|
|00002920| 6c 6f 77 52 61 6e 6b 0d | 65 6e 64 20 69 66 0d 70 |lowRank.|end if.p|
|00002930| 75 74 20 6c 6f 77 48 61 | 6e 64 20 69 6e 74 6f 20 |ut lowHa|nd into |
|00002940| 74 68 65 50 6f 74 65 6e | 74 69 61 6c 4c 6f 77 0d |thePoten|tialLow.|
|00002950| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 69 66 |end if.e|nd if.if|
|00002960| 20 74 68 65 48 69 67 68 | 52 61 6e 6b 20 ad 20 2d | theHigh|Rank . -|
|00002970| 31 20 74 68 65 6e 20 65 | 78 69 74 20 65 76 61 6c |1 then e|xit eval|
|00002980| 75 61 74 65 0d 0d 70 75 | 74 20 73 74 72 61 69 67 |uate..pu|t straig|
|00002990| 68 74 28 74 68 65 48 61 | 6e 64 29 20 69 6e 74 6f |ht(theHa|nd) into|
|000029a0| 20 73 74 72 61 69 67 68 | 74 48 61 6e 64 0d 70 75 | straigh|tHand.pu|
|000029b0| 74 20 66 6c 75 73 68 28 | 74 68 65 48 61 6e 64 2c |t flush(|theHand,|
|000029c0| 33 29 20 69 6e 74 6f 20 | 66 6c 75 73 68 48 61 6e |3) into |flushHan|
|000029d0| 64 0d 69 66 20 66 6c 75 | 73 68 48 61 6e 64 20 ad |d.if flu|shHand .|
|000029e0| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 73 74 72 46 | empty t|hen.strF|
|000029f0| 6c 75 73 68 20 66 6c 75 | 73 68 48 61 6e 64 2c 33 |lush flu|shHand,3|
|00002a00| 0d 69 66 20 74 68 65 48 | 69 67 68 52 61 6e 6b 20 |.if theH|ighRank |
|00002a10| ad 20 2d 31 20 74 68 65 | 6e 20 65 78 69 74 20 65 |. -1 the|n exit e|
|00002a20| 76 61 6c 75 61 74 65 20 | 2d 2d 67 6f 74 20 61 20 |valuate |--got a |
|00002a30| 73 74 72 61 69 67 68 74 | 20 66 6c 75 73 68 0d 65 |straight| flush.e|
|00002a40| 6e 64 20 69 66 0d 0d 70 | 75 74 20 6e 75 6d 62 65 |nd if..p|ut numbe|
|00002a50| 72 20 6f 66 20 69 74 65 | 6d 73 20 69 6e 20 66 6c |r of ite|ms in fl|
|00002a60| 75 73 68 48 61 6e 64 20 | 69 6e 74 6f 20 66 6c 75 |ushHand |into flu|
|00002a70| 73 68 4c 65 6e 67 74 68 | 0d 69 66 20 66 6c 75 73 |shLength|.if flus|
|00002a80| 68 48 61 6e 64 20 ad 20 | 65 6d 70 74 79 20 41 4e |hHand . |empty AN|
|00002a90| 44 20 66 6c 75 73 68 4c | 65 6e 67 74 68 20 3e 20 |D flushL|ength > |
|00002aa0| 33 20 74 68 65 6e 0d 69 | 66 20 66 6c 75 73 68 4c |3 then.i|f flushL|
|00002ab0| 65 6e 67 74 68 20 3d 20 | 35 20 74 68 65 6e 0d 70 |ength = |5 then.p|
|00002ac0| 75 74 20 66 6c 75 73 68 | 48 61 6e 64 20 69 6e 74 |ut flush|Hand int|
|00002ad0| 6f 20 74 68 65 48 69 67 | 68 0d 70 75 74 20 34 20 |o theHig|h.put 4 |
|00002ae0| 69 6e 74 6f 20 74 68 65 | 48 69 67 68 52 61 6e 6b |into the|HighRank|
|00002af0| 0d 65 78 69 74 20 65 76 | 61 6c 75 61 74 65 0d 65 |.exit ev|aluate.e|
|00002b00| 6e 64 20 69 66 0d 69 66 | 20 74 68 65 50 68 72 61 |nd if.if| thePhra|
|00002b10| 6e 6b 20 3c 20 32 20 74 | 68 65 6e 0d 70 75 74 20 |nk < 2 t|hen.put |
|00002b20| 66 6c 75 73 68 48 61 6e | 64 20 69 6e 74 6f 20 74 |flushHan|d into t|
|00002b30| 68 65 50 6f 74 65 6e 74 | 69 61 6c 48 69 67 68 0d |hePotent|ialHigh.|
|00002b40| 70 75 74 20 33 20 69 6e | 74 6f 20 74 68 65 50 48 |put 3 in|to thePH|
|00002b50| 52 61 6e 6b 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |Rank.end| if.end |
|00002b60| 69 66 0d 0d 69 66 20 73 | 74 72 61 69 67 68 74 48 |if..if s|traightH|
|00002b70| 61 6e 64 20 ad 20 65 6d | 70 74 79 20 74 68 65 6e |and . em|pty then|
|00002b80| 0d 69 66 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |.if numb|er of it|
|00002b90| 65 6d 73 20 69 6e 20 73 | 74 72 61 69 67 68 74 48 |ems in s|traightH|
|00002ba0| 61 6e 64 20 3d 20 35 20 | 74 68 65 6e 0d 70 75 74 |and = 5 |then.put|
|00002bb0| 20 73 74 72 61 69 67 68 | 74 48 61 6e 64 20 69 6e | straigh|tHand in|
|00002bc0| 74 6f 20 74 68 65 48 69 | 67 68 0d 70 75 74 20 33 |to theHi|gh.put 3|
|00002bd0| 20 69 6e 74 6f 20 74 68 | 65 48 69 67 68 52 61 6e | into th|eHighRan|
|00002be0| 6b 0d 65 78 69 74 20 65 | 76 61 6c 75 61 74 65 0d |k.exit e|valuate.|
|00002bf0| 65 6e 64 20 69 66 0d 0d | 69 66 20 74 68 65 50 68 |end if..|if thePh|
|00002c00| 72 61 6e 6b 20 3c 20 31 | 20 74 68 65 6e 0d 70 75 |rank < 1| then.pu|
|00002c10| 74 20 73 74 72 61 69 67 | 68 74 48 61 6e 64 20 69 |t straig|htHand i|
|00002c20| 6e 74 6f 20 74 68 65 50 | 6f 74 65 6e 74 69 61 6c |nto theP|otential|
|00002c30| 48 69 67 68 0d 70 75 74 | 20 77 6f 72 64 20 31 20 |High.put| word 1 |
|00002c40| 6f 66 20 69 74 65 6d 20 | 31 20 6f 66 20 73 74 72 |of item |1 of str|
|00002c50| 61 69 67 68 74 48 61 6e | 64 20 69 6e 74 6f 20 73 |aightHan|d into s|
|00002c60| 74 61 72 74 43 64 0d 70 | 75 74 20 77 6f 72 64 20 |tartCd.p|ut word |
|00002c70| 31 20 6f 66 20 6c 61 73 | 74 20 69 74 65 6d 20 6f |1 of las|t item o|
|00002c80| 66 20 73 74 72 61 69 67 | 68 74 48 61 6e 64 20 69 |f straig|htHand i|
|00002c90| 6e 74 6f 20 65 6e 64 43 | 64 0d 67 65 74 20 28 73 |nto endC|d.get (s|
|00002ca0| 74 61 72 74 43 64 20 3d | 20 31 20 4f 52 20 65 6e |tartCd =| 1 OR en|
|00002cb0| 64 43 44 20 3d 20 31 34 | 20 4f 52 20 65 6e 64 43 |dCD = 14| OR endC|
|00002cc0| 64 20 2d 20 73 74 61 72 | 74 43 64 20 b3 20 34 29 |d - star|tCd . 4)|
|00002cd0| 20 2d 2d 20 69 6e 73 69 | 64 65 53 74 72 0d 69 66 | -- insi|deStr.if|
|00002ce0| 20 69 74 20 41 4e 44 20 | 6e 6f 74 20 67 6f 74 4a | it AND |not gotJ|
|00002cf0| 6f 6b 65 20 74 68 65 6e | 20 70 75 74 20 30 20 69 |oke then| put 0 i|
|00002d00| 6e 74 6f 20 74 68 65 50 | 48 52 61 6e 6b 0d 65 6c |nto theP|HRank.el|
|00002d10| 73 65 20 70 75 74 20 31 | 20 69 6e 74 6f 20 74 68 |se put 1| into th|
|00002d20| 65 50 48 52 61 6e 6b 0d | 65 6e 64 20 69 66 0d 65 |ePHRank.|end if.e|
|00002d30| 6e 64 20 69 66 0d 0d 69 | 66 20 6e 75 6d 62 65 72 |nd if..i|f number|
|00002d40| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 74 68 65 | of item|s in the|
|00002d50| 4b 69 6e 64 73 20 3d 20 | 32 20 74 68 65 6e 0d 70 |Kinds = |2 then.p|
|00002d60| 75 74 20 74 68 65 4b 69 | 6e 64 73 20 69 6e 74 6f |ut theKi|nds into|
|00002d70| 20 74 68 65 48 69 67 68 | 0d 70 75 74 20 68 69 67 | theHigh|.put hig|
|00002d80| 68 52 61 6e 6b 20 69 6e | 74 6f 20 74 68 65 48 69 |hRank in|to theHi|
|00002d90| 67 68 52 61 6e 6b 0d 65 | 6e 64 20 69 66 0d 65 6e |ghRank.e|nd if.en|
|00002da0| 64 20 65 76 61 6c 75 61 | 74 65 0d 0d 6f 6e 20 72 |d evalua|te..on r|
|00002db0| 65 45 76 61 6c 75 61 74 | 65 4c 6f 77 0d 47 4c 4f |eEvaluat|eLow.GLO|
|00002dc0| 42 41 4c 20 74 68 65 48 | 61 6e 64 2c 74 68 65 4c |BAL theH|and,theL|
|00002dd0| 6f 77 52 61 6e 6b 2c 20 | 74 68 65 4b 69 6e 64 73 |owRank, |theKinds|
|00002de0| 2c 20 67 6f 74 4a 6f 6b | 65 0d 69 66 20 74 68 65 |, gotJok|e.if the|
|00002df0| 48 61 6e 64 20 63 6f 6e | 74 61 69 6e 73 20 22 31 |Hand con|tains "1|
|00002e00| 34 22 20 74 68 65 6e 20 | 61 6e 73 77 65 72 20 22 |4" then |answer "|
|00002e10| 65 72 72 6f 72 22 0d 69 | 66 20 6e 6f 74 20 67 6f |error".i|f not go|
|00002e20| 74 4a 6f 6b 65 20 74 68 | 65 6e 20 70 75 74 20 22 |tJoke th|en put "|
|00002e30| 2a 22 20 69 73 20 69 6e | 20 74 68 65 48 61 6e 64 |*" is in| theHand|
|00002e40| 20 69 6e 74 6f 20 67 6f | 74 4a 6f 6b 65 20 2d 2d | into go|tJoke --|
|00002e50| 73 6f 20 67 6f 74 4a 6f | 6b 65 20 72 65 6d 61 69 |so gotJo|ke remai|
|00002e60| 6e 73 20 74 72 75 65 20 | 69 66 20 6a 6f 6b 65 72 |ns true |if joker|
|00002e70| 20 64 69 73 63 61 72 64 | 65 64 0d 70 75 74 20 74 | discard|ed.put t|
|00002e80| 68 65 48 61 6e 64 20 69 | 6e 74 6f 20 74 65 6d 70 |heHand i|nto temp|
|00002e90| 48 61 6e 64 0d 69 66 20 | 74 65 6d 70 48 61 6e 64 |Hand.if |tempHand|
|00002ea0| 20 63 6f 6e 74 61 69 6e | 73 20 22 2a 22 20 74 68 | contain|s "*" th|
|00002eb0| 65 6e 0d 64 65 6c 65 74 | 65 20 69 74 65 6d 20 31 |en.delet|e item 1|
|00002ec0| 20 6f 66 20 74 65 6d 70 | 48 61 6e 64 0d 69 66 20 | of temp|Hand.if |
|00002ed0| 74 65 6d 70 48 61 6e 64 | 20 63 6f 6e 74 61 69 6e |tempHand| contain|
|00002ee0| 73 20 22 2a 22 20 74 68 | 65 6e 20 61 6e 73 77 65 |s "*" th|en answe|
|00002ef0| 72 20 22 66 61 69 6c 65 | 64 20 74 6f 20 64 65 6c |r "faile|d to del|
|00002f00| 65 74 65 20 6a 6f 6b 65 | 72 22 0d 65 6e 64 20 69 |ete joke|r".end i|
|00002f10| 66 0d 2d 2d 70 61 69 72 | 65 64 20 75 70 3f 0d 70 |f.--pair|ed up?.p|
|00002f20| 75 74 20 6d 61 74 63 68 | 65 73 28 74 65 6d 70 48 |ut match|es(tempH|
|00002f30| 61 6e 64 29 20 69 6e 74 | 6f 20 74 68 65 4b 69 6e |and) int|o theKin|
|00002f40| 64 73 0d 67 65 74 20 6e | 75 6d 62 65 72 20 6f 66 |ds.get n|umber of|
|00002f50| 20 69 74 65 6d 73 20 69 | 6e 20 74 68 65 4b 69 6e | items i|n theKin|
|00002f60| 64 73 0d 69 66 20 69 74 | 20 3e 20 31 20 74 68 65 |ds.if it| > 1 the|
|00002f70| 6e 0d 70 75 74 20 39 39 | 39 39 39 39 20 69 6e 74 |n.put 99|9999 int|
|00002f80| 6f 20 74 68 65 4c 6f 77 | 52 61 6e 6b 0d 65 78 69 |o theLow|Rank.exi|
|00002f90| 74 20 72 65 45 76 61 6c | 75 61 74 65 4c 6f 77 0d |t reEval|uateLow.|
|00002fa0| 65 6e 64 20 69 66 0d 69 | 66 20 69 74 20 3d 20 31 |end if.i|f it = 1|
|00002fb0| 20 74 68 65 6e 20 61 6e | 73 77 65 72 20 22 65 72 | then an|swer "er|
|00002fc0| 72 6f 72 3a 20 31 20 63 | 61 72 64 20 69 6e 20 74 |ror: 1 c|ard in t|
|00002fd0| 68 65 4b 69 6e 64 73 22 | 0d 0d 70 75 74 20 6c 6f |heKinds"|..put lo|
|00002fe0| 77 52 61 6e 6b 28 74 68 | 65 48 61 6e 64 2c 35 29 |wRank(th|eHand,5)|
|00002ff0| 20 69 6e 74 6f 20 74 68 | 65 4c 6f 77 52 61 6e 6b | into th|eLowRank|
|00003000| 0d 65 6e 64 20 72 65 45 | 76 61 6c 75 61 74 65 4c |.end reE|valuateL|
|00003010| 6f 77 0d 0d 6f 6e 20 72 | 65 45 76 61 6c 75 61 74 |ow..on r|eEvaluat|
|00003020| 65 0d 47 4c 4f 42 41 4c | 20 74 68 65 50 72 6f 6a |e.GLOBAL| theProj|
|00003030| 52 61 6e 6b 2c 20 74 68 | 65 4e 75 6d 44 72 61 77 |Rank, th|eNumDraw|
|00003040| 6e 2c 20 74 68 65 4d 69 | 6e 52 61 6e 6b 2c 20 74 |n, theMi|nRank, t|
|00003050| 68 65 48 61 6e 64 2c 20 | 67 6f 74 4a 6f 6b 65 0d |heHand, |gotJoke.|
|00003060| 47 4c 4f 42 41 4c 20 74 | 68 65 48 69 67 68 2c 20 |GLOBAL t|heHigh, |
|00003070| 74 68 65 4b 69 6e 64 73 | 2c 74 68 65 48 69 67 68 |theKinds|,theHigh|
|00003080| 52 61 6e 6b 2c 20 74 68 | 65 55 6e 63 65 72 74 61 |Rank, th|eUncerta|
|00003090| 69 6e 74 79 0d 2d 2d 64 | 72 65 77 20 6a 6f 6b 65 |inty.--d|rew joke|
|000030a0| 72 3f 0d 69 66 20 6e 6f | 74 20 67 6f 74 4a 6f 6b |r?.if no|t gotJok|
|000030b0| 65 20 74 68 65 6e 20 70 | 75 74 20 22 2a 22 20 69 |e then p|ut "*" i|
|000030c0| 73 20 69 6e 20 74 68 65 | 48 61 6e 64 20 69 6e 74 |s in the|Hand int|
|000030d0| 6f 20 67 6f 74 4a 6f 6b | 65 0d 0d 2d 2d 72 65 64 |o gotJok|e..--red|
|000030e0| 6f 20 74 68 65 68 61 6e | 64 2c 20 74 68 65 48 69 |o thehan|d, theHi|
|000030f0| 67 68 2c 20 65 74 63 2e | 0d 67 65 74 20 61 63 74 |gh, etc.|.get act|
|00003100| 75 61 6c 48 69 67 68 28 | 29 0d 70 75 74 20 6c 69 |ualHigh(|).put li|
|00003110| 6e 65 20 31 20 6f 66 20 | 69 74 20 69 6e 74 6f 20 |ne 1 of |it into |
|00003120| 74 68 65 48 69 67 68 0d | 70 75 74 20 6c 69 6e 65 |theHigh.|put line|
|00003130| 20 32 20 6f 66 20 69 74 | 20 69 6e 74 6f 20 74 68 | 2 of it| into th|
|00003140| 65 48 69 67 68 52 61 6e | 6b 0d 65 6e 64 20 72 65 |eHighRan|k.end re|
|00003150| 45 76 61 6c 75 61 74 65 | 0d 0d 2d 2d 73 68 6f 75 |Evaluate|..--shou|
|00003160| 6c 64 20 74 61 6b 65 20 | 69 6e 74 6f 20 61 63 63 |ld take |into acc|
|00003170| 6f 75 6e 74 20 77 68 6f | 20 63 61 6c 6c 65 64 20 |ount who| called |
|00003180| 28 3e 3e 20 77 65 61 6b | 65 72 20 70 6f 73 73 69 |(>> weak|er possi|
|00003190| 62 69 6c 69 74 79 20 77 | 68 65 6e 20 75 6e 63 65 |bility w|hen unce|
|000031a0| 72 74 61 69 6e 74 29 0d | 6f 6e 20 64 72 61 77 41 |rtaint).|on drawA|
|000031b0| 64 6a 75 73 74 0d 47 4c | 4f 42 41 4c 20 74 68 65 |djust.GL|OBAL the|
|000031c0| 4e 75 6d 44 72 61 77 6e | 2c 20 74 68 65 50 72 6f |NumDrawn|, thePro|
|000031d0| 6a 52 61 6e 6b 2c 20 74 | 68 65 4d 69 6e 52 61 6e |jRank, t|heMinRan|
|000031e0| 6b 0d 47 4c 4f 42 41 4c | 20 74 68 65 55 6e 63 65 |k.GLOBAL| theUnce|
|000031f0| 72 74 61 69 6e 74 79 2c | 20 67 61 6d 65 49 73 4c |rtainty,| gameIsL|
|00003200| 6f 77 0d 47 4c 4f 42 41 | 4c 20 74 68 65 42 65 74 |ow.GLOBA|L theBet|
|00003210| 4e 75 6d 32 2c 20 74 68 | 65 41 64 6a 75 73 74 6d |Num2, th|eAdjustm|
|00003220| 65 6e 74 2c 20 74 68 65 | 46 69 6e 61 6c 45 72 72 |ent, the|FinalErr|
|00003230| 6f 72 0d 0d 69 66 20 74 | 68 65 42 65 74 4e 75 6d |or..if t|heBetNum|
|00003240| 32 20 3d 20 30 20 74 68 | 65 6e 20 70 75 74 20 30 |2 = 0 th|en put 0|
|00003250| 20 69 6e 74 6f 20 74 68 | 65 41 64 6a 75 73 74 6d | into th|eAdjustm|
|00003260| 65 6e 74 0d 65 6c 73 65 | 20 70 75 74 20 74 68 65 |ent.else| put the|
|00003270| 46 69 6e 61 6c 45 72 72 | 6f 72 2f 74 68 65 42 65 |FinalErr|or/theBe|
|00003280| 74 4e 75 6d 32 20 69 6e | 74 6f 20 74 68 65 41 64 |tNum2 in|to theAd|
|00003290| 6a 75 73 74 6d 65 6e 74 | 0d 0d 69 66 20 74 68 65 |justment|..if the|
|000032a0| 4e 75 6d 44 72 61 77 6e | 20 3e 20 35 20 74 68 65 |NumDrawn| > 5 the|
|000032b0| 6e 20 61 6e 73 77 65 72 | 20 22 65 72 72 6f 72 21 |n answer| "error!|
|000032c0| 22 0d 69 66 20 67 61 6d | 65 49 73 4c 6f 77 20 74 |".if gam|eIsLow t|
|000032d0| 68 65 6e 0d 64 72 61 77 | 41 64 6a 75 73 74 4c 6f |hen.draw|AdjustLo|
|000032e0| 77 0d 65 78 69 74 20 64 | 72 61 77 41 64 6a 75 73 |w.exit d|rawAdjus|
|000032f0| 74 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 74 68 65 |t.end if|..if the|
|00003300| 4e 75 6d 44 72 61 77 6e | 20 3d 20 35 20 74 68 65 |NumDrawn| = 5 the|
|00003310| 6e 0d 70 75 74 20 2d 31 | 20 69 6e 74 6f 20 74 68 |n.put -1| into th|
|00003320| 65 50 72 6f 6a 52 61 6e | 6b 0d 70 75 74 20 2d 31 |eProjRan|k.put -1|
|00003330| 20 69 6e 74 6f 20 74 68 | 65 4d 69 6e 52 61 6e 6b | into th|eMinRank|
|00003340| 0d 70 75 74 20 30 20 69 | 6e 74 6f 20 74 68 65 55 |.put 0 i|nto theU|
|00003350| 6e 63 65 72 74 61 69 6e | 74 79 0d 65 78 69 74 20 |ncertain|ty.exit |
|00003360| 64 72 61 77 41 64 6a 75 | 73 74 0d 65 6e 64 20 69 |drawAdju|st.end i|
|00003370| 66 0d 0d 69 66 20 74 68 | 65 4e 75 6d 44 72 61 77 |f..if th|eNumDraw|
|00003380| 6e 20 3d 20 34 20 74 68 | 65 6e 0d 70 75 74 20 2d |n = 4 th|en.put -|
|00003390| 2e 31 20 69 6e 74 6f 20 | 74 68 65 50 72 6f 6a 52 |.1 into |theProjR|
|000033a0| 61 6e 6b 0d 70 75 74 20 | 2d 2e 33 33 20 69 6e 74 |ank.put |-.33 int|
|000033b0| 6f 20 74 68 65 4d 69 6e | 52 61 6e 6b 2d 2d 61 6e |o theMin|Rank--an|
|000033c0| 20 61 63 65 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 | ace.put| 0 into |
|000033d0| 74 68 65 55 6e 63 65 72 | 74 61 69 6e 74 79 0d 65 |theUncer|tainty.e|
|000033e0| 78 69 74 20 64 72 61 77 | 41 64 6a 75 73 74 0d 65 |xit draw|Adjust.e|
|000033f0| 6e 64 20 69 66 0d 0d 69 | 66 20 74 68 65 4e 75 6d |nd if..i|f theNum|
|00003400| 44 72 61 77 6e 20 3d 20 | 33 20 74 68 65 6e 0d 69 |Drawn = |3 then.i|
|00003410| 66 20 74 68 65 50 72 6f | 6a 52 61 6e 6b 20 3e 20 |f thePro|jRank > |
|00003420| 2e 35 20 74 68 65 6e 20 | 70 75 74 20 2e 36 36 20 |.5 then |put .66 |
|00003430| 69 6e 74 6f 20 74 68 65 | 50 72 6f 6a 52 61 6e 6b |into the|ProjRank|
|00003440| 0d 65 6c 73 65 20 69 66 | 20 74 68 65 50 72 6f 6a |.else if| theProj|
|00003450| 52 61 6e 6b 20 3e 20 30 | 20 74 68 65 6e 20 70 75 |Rank > 0| then pu|
|00003460| 74 20 2e 35 20 69 6e 74 | 6f 20 74 68 65 50 72 6f |t .5 int|o thePro|
|00003470| 6a 52 61 6e 6b 0d 65 6c | 73 65 20 70 75 74 20 30 |jRank.el|se put 0|
|00003480| 2e 33 20 69 6e 74 6f 20 | 74 68 65 50 72 6f 6a 52 |.3 into |theProjR|
|00003490| 61 6e 6b 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 74 |ank.put |0 into t|
|000034a0| 68 65 4d 69 6e 52 61 6e | 6b 0d 70 75 74 20 30 20 |heMinRan|k.put 0 |
|000034b0| 69 6e 74 6f 20 74 68 65 | 55 6e 63 65 72 74 61 69 |into the|Uncertai|
|000034c0| 6e 74 79 0d 65 78 69 74 | 20 64 72 61 77 41 64 6a |nty.exit| drawAdj|
|000034d0| 75 73 74 0d 65 6e 64 20 | 69 66 0d 0d 69 66 20 74 |ust.end |if..if t|
|000034e0| 68 65 4e 75 6d 44 72 61 | 77 6e 20 3d 20 32 20 74 |heNumDra|wn = 2 t|
|000034f0| 68 65 6e 0d 69 66 20 74 | 68 65 50 72 6f 6a 52 61 |hen.if t|heProjRa|
|00003500| 6e 6b 20 3e 20 32 20 74 | 68 65 6e 0d 70 75 74 20 |nk > 2 t|hen.put |
|00003510| 32 2e 35 20 69 6e 74 6f | 20 74 68 65 50 72 6f 6a |2.5 into| theProj|
|00003520| 52 61 6e 6b 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |Rank.put| 0 into |
|00003530| 74 68 65 55 6e 63 65 72 | 74 61 69 6e 74 79 0d 70 |theUncer|tainty.p|
|00003540| 75 74 20 30 20 69 6e 74 | 6f 20 74 68 65 4d 69 6e |ut 0 int|o theMin|
|00003550| 52 61 6e 6b 0d 65 6c 73 | 65 20 69 66 20 74 68 65 |Rank.els|e if the|
|00003560| 50 72 6f 6a 52 61 6e 6b | 20 3e 20 31 20 74 68 65 |ProjRank| > 1 the|
|00003570| 6e 0d 70 75 74 20 32 20 | 69 6e 74 6f 20 74 68 65 |n.put 2 |into the|
|00003580| 50 72 6f 6a 52 61 6e 6b | 0d 70 75 74 20 2d 2e 33 |ProjRank|.put -.3|
|00003590| 33 20 69 6e 74 6f 20 74 | 68 65 55 6e 63 65 72 74 |3 into t|heUncert|
|000035a0| 61 69 6e 74 79 0d 70 75 | 74 20 30 20 69 6e 74 6f |ainty.pu|t 0 into|
|000035b0| 20 74 68 65 4d 69 6e 52 | 61 6e 6b 0d 65 6c 73 65 | theMinR|ank.else|
|000035c0| 20 69 66 20 74 68 65 50 | 72 6f 6a 52 61 6e 6b 20 | if theP|rojRank |
|000035d0| 3e 20 30 20 74 68 65 6e | 20 2d 2d 61 73 73 75 6d |> 0 then| --assum|
|000035e0| 65 20 68 65 20 68 65 6c | 64 20 61 63 65 20 6b 69 |e he hel|d ace ki|
|000035f0| 63 6b 65 72 0d 70 75 74 | 20 2e 39 20 69 6e 74 6f |cker.put| .9 into|
|00003600| 20 74 68 65 50 72 6f 6a | 52 61 6e 6b 0d 70 75 74 | theProj|Rank.put|
|00003610| 20 2e 38 20 69 6e 74 6f | 20 74 68 65 55 6e 63 65 | .8 into| theUnce|
|00003620| 72 74 61 69 6e 74 79 0d | 70 75 74 20 30 20 69 6e |rtainty.|put 0 in|
|00003630| 74 6f 20 74 68 65 4d 69 | 6e 52 61 6e 6b 0d 65 6c |to theMi|nRank.el|
|00003640| 73 65 0d 70 75 74 20 2d | 31 20 69 6e 74 6f 20 74 |se.put -|1 into t|
|00003650| 68 65 50 72 6f 6a 52 61 | 6e 6b 0d 70 75 74 20 2d |heProjRa|nk.put -|
|00003660| 31 20 69 6e 74 6f 20 74 | 68 65 4d 69 6e 52 61 6e |1 into t|heMinRan|
|00003670| 6b 0d 70 75 74 20 30 20 | 69 6e 74 6f 20 74 68 65 |k.put 0 |into the|
|00003680| 55 6e 63 65 72 74 61 69 | 6e 74 79 0d 65 6e 64 20 |Uncertai|nty.end |
|00003690| 69 66 0d 65 78 69 74 20 | 64 72 61 77 41 64 6a 75 |if.exit |drawAdju|
|000036a0| 73 74 0d 2d 2d 73 68 6f | 75 6c 64 20 68 61 76 65 |st.--sho|uld have|
|000036b0| 20 61 63 65 73 20 69 66 | 20 61 73 73 75 6d 69 6e | aces if| assumin|
|000036c0| 67 20 68 65 20 68 65 6c | 64 20 61 63 65 20 6b 69 |g he hel|d ace ki|
|000036d0| 63 6b 65 72 3f 0d 2d 2d | 6e 65 65 64 20 74 6f 20 |cker?.--|need to |
|000036e0| 6b 6e 6f 77 20 74 68 69 | 73 20 66 6f 72 20 62 65 |know thi|s for be|
|000036f0| 74 74 69 6e 67 20 73 74 | 72 61 74 65 67 79 0d 65 |tting st|rategy.e|
|00003700| 6e 64 20 69 66 0d 0d 2d | 2d 73 68 6f 75 6c 64 20 |nd if..-|-should |
|00003710| 74 72 61 63 6b 20 68 69 | 73 20 62 65 74 74 69 6e |track hi|s bettin|
|00003720| 67 20 70 61 74 74 65 72 | 6e 20 62 65 66 6f 72 65 |g patter|n before|
|00003730| 20 26 20 61 66 74 65 72 | 20 61 20 6f 6e 65 2d 64 | & after| a one-d|
|00003740| 72 61 77 0d 2d 2d 74 72 | 61 63 6b 20 74 68 65 20 |raw.--tr|ack the |
|00003750| 74 79 70 69 63 61 6c 20 | 6d 61 72 67 69 6e 20 68 |typical |margin h|
|00003760| 65 72 65 0d 69 66 20 74 | 68 65 4e 75 6d 44 72 61 |ere.if t|heNumDra|
|00003770| 77 6e 20 3d 20 31 20 74 | 68 65 6e 0d 69 66 20 74 |wn = 1 t|hen.if t|
|00003780| 68 65 50 72 6f 6a 52 61 | 6e 6b 20 3e 20 2e 35 20 |heProjRa|nk > .5 |
|00003790| 74 68 65 6e 0d 70 75 74 | 20 31 20 69 6e 74 6f 20 |then.put| 1 into |
|000037a0| 74 68 65 50 72 6f 6a 52 | 61 6e 6b 0d 70 75 74 20 |theProjR|ank.put |
|000037b0| 33 20 69 6e 74 6f 20 74 | 68 65 55 6e 63 65 72 74 |3 into t|heUncert|
|000037c0| 61 69 6e 74 79 0d 70 75 | 74 20 31 20 69 6e 74 6f |ainty.pu|t 1 into|
|000037d0| 20 74 68 65 4d 69 6e 52 | 61 6e 6b 0d 65 78 69 74 | theMinR|ank.exit|
|000037e0| 20 64 72 61 77 41 64 6a | 75 73 74 0d 65 6e 64 20 | drawAdj|ust.end |
|000037f0| 69 66 0d 70 75 74 20 33 | 20 69 6e 74 6f 20 74 68 |if.put 3| into th|
|00003800| 65 50 72 6f 6a 52 61 6e | 6b 20 2d 2d 61 20 73 74 |eProjRan|k --a st|
|00003810| 72 61 69 67 68 74 0d 70 | 75 74 20 2d 34 20 69 6e |raight.p|ut -4 in|
|00003820| 74 6f 20 74 68 65 55 6e | 63 65 72 74 61 69 6e 74 |to theUn|certaint|
|00003830| 79 0d 70 75 74 20 2d 31 | 20 69 6e 74 6f 20 74 68 |y.put -1| into th|
|00003840| 65 4d 69 6e 52 61 6e 6b | 0d 65 78 69 74 20 64 72 |eMinRank|.exit dr|
|00003850| 61 77 41 64 6a 75 73 74 | 0d 65 6e 64 20 69 66 0d |awAdjust|.end if.|
|00003860| 0d 69 66 20 74 68 65 4e | 75 6d 44 72 61 77 6e 20 |.if theN|umDrawn |
|00003870| 3d 20 30 20 74 68 65 6e | 0d 70 75 74 20 33 20 69 |= 0 then|.put 3 i|
|00003880| 6e 74 6f 20 74 68 65 4d | 69 6e 52 61 6e 6b 0d 69 |nto theM|inRank.i|
|00003890| 66 20 74 68 65 50 72 6f | 6a 52 61 6e 6b 20 b2 20 |f thePro|jRank . |
|000038a0| 33 20 74 68 65 6e 20 70 | 75 74 20 33 20 69 6e 74 |3 then p|ut 3 int|
|000038b0| 6f 20 74 68 65 50 72 6f | 6a 52 61 6e 6b 0d 65 6c |o thePro|jRank.el|
|000038c0| 73 65 20 69 66 20 74 68 | 65 50 72 6f 6a 52 61 6e |se if th|eProjRan|
|000038d0| 6b 20 3d 20 34 20 74 68 | 65 6e 20 70 75 74 20 34 |k = 4 th|en put 4|
|000038e0| 20 69 6e 74 6f 20 74 68 | 65 50 72 6f 6a 52 61 6e | into th|eProjRan|
|000038f0| 6b 0d 65 6c 73 65 20 70 | 75 74 20 35 20 69 6e 74 |k.else p|ut 5 int|
|00003900| 6f 20 74 68 65 50 72 6f | 6a 52 61 6e 6b 0d 65 6e |o thePro|jRank.en|
|00003910| 64 20 69 66 0d 65 6e 64 | 20 64 72 61 77 41 64 6a |d if.end| drawAdj|
|00003920| 75 73 74 0d 0d 6f 6e 20 | 64 72 61 77 41 64 6a 75 |ust..on |drawAdju|
|00003930| 73 74 4c 6f 77 0d 47 4c | 4f 42 41 4c 20 74 68 65 |stLow.GL|OBAL the|
|00003940| 4e 75 6d 44 72 61 77 6e | 2c 20 74 68 65 50 72 6f |NumDrawn|, thePro|
|00003950| 6a 52 61 6e 6b 2c 20 67 | 6f 74 4a 6f 6b 65 2c 20 |jRank, g|otJoke, |
|00003960| 74 68 65 55 6e 63 65 72 | 74 61 69 6e 74 79 0d 47 |theUncer|tainty.G|
|00003970| 4c 4f 42 41 4c 20 74 68 | 65 41 64 6a 75 73 74 6d |LOBAL th|eAdjustm|
|00003980| 65 6e 74 2c 20 74 68 65 | 46 69 6e 61 6c 45 72 72 |ent, the|FinalErr|
|00003990| 6f 72 4c 6f 77 2c 20 74 | 68 65 42 65 74 4e 75 6d |orLow, t|heBetNum|
|000039a0| 4c 6f 77 32 0d 0d 69 66 | 20 74 68 65 42 65 74 4e |Low2..if| theBetN|
|000039b0| 75 6d 4c 6f 77 32 20 3d | 20 30 20 74 68 65 6e 20 |umLow2 =| 0 then |
|000039c0| 70 75 74 20 30 20 69 6e | 74 6f 20 74 68 65 41 64 |put 0 in|to theAd|
|000039d0| 6a 75 73 74 0d 65 6c 73 | 65 20 70 75 74 20 74 68 |just.els|e put th|
|000039e0| 65 46 69 6e 61 6c 45 72 | 72 6f 72 4c 6f 77 2f 74 |eFinalEr|rorLow/t|
|000039f0| 68 65 42 65 74 4e 75 6d | 4c 6f 77 32 20 69 6e 74 |heBetNum|Low2 int|
|00003a00| 6f 20 74 68 65 41 64 6a | 75 73 74 0d 0d 69 66 20 |o theAdj|ust..if |
|00003a10| 74 68 65 4e 75 6d 44 72 | 61 77 6e 20 3d 20 30 20 |theNumDr|awn = 0 |
|00003a20| 74 68 65 6e 0d 67 65 74 | 20 6c 6f 77 54 6f 48 69 |then.get| lowToHi|
|00003a30| 67 68 28 31 30 39 29 20 | 2d 2d 6d 75 73 74 20 68 |gh(109) |--must h|
|00003a40| 61 76 65 20 61 74 20 6c | 65 61 73 74 20 61 20 31 |ave at l|east a 1|
|00003a50| 30 2d 39 20 6e 6f 74 20 | 74 6f 20 64 72 61 77 20 |0-9 not |to draw |
|00003a60| 28 3f 29 0d 69 66 20 74 | 68 65 50 72 6f 6a 52 61 |(?).if t|heProjRa|
|00003a70| 6e 6b 20 3c 20 69 74 20 | 74 68 65 6e 20 70 75 74 |nk < it |then put|
|00003a80| 20 69 74 20 69 6e 74 6f | 20 74 68 65 50 72 6f 6a | it into| theProj|
|00003a90| 52 61 6e 6b 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |Rank.put| 0 into |
|00003aa0| 74 68 65 55 6e 63 65 72 | 74 61 69 6e 74 79 0d 65 |theUncer|tainty.e|
|00003ab0| 78 69 74 20 64 72 61 77 | 41 64 6a 75 73 74 4c 6f |xit draw|AdjustLo|
|00003ac0| 77 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 74 68 65 |w.end if|..if the|
|00003ad0| 4e 75 6d 44 72 61 77 6e | 20 3d 20 31 20 74 68 65 |NumDrawn| = 1 the|
|00003ae0| 6e 0d 69 66 20 74 68 65 | 50 72 6f 6a 52 61 6e 6b |n.if the|ProjRank|
|00003af0| 20 3e 20 2e 33 20 74 68 | 65 6e 20 70 75 74 20 2e | > .3 th|en put .|
|00003b00| 33 20 69 6e 74 6f 20 74 | 68 65 50 72 6f 6a 52 61 |3 into t|heProjRa|
|00003b10| 6e 6b 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 74 68 |nk.put 1| into th|
|00003b20| 65 55 6e 63 65 72 74 61 | 69 6e 74 79 0d 65 78 69 |eUncerta|inty.exi|
|00003b30| 74 20 64 72 61 77 41 64 | 6a 75 73 74 4c 6f 77 0d |t drawAd|justLow.|
|00003b40| 65 6e 64 20 69 66 0d 0d | 2d 2d 64 72 65 77 20 6d |end if..|--drew m|
|00003b50| 6f 72 65 20 74 68 61 6e | 20 31 20 63 61 72 64 0d |ore than| 1 card.|
|00003b60| 69 66 20 67 6f 74 4a 6f | 6b 65 20 74 68 65 6e 20 |if gotJo|ke then |
|00003b70| 70 75 74 20 2d 31 20 69 | 6e 74 6f 20 74 68 65 50 |put -1 i|nto theP|
|00003b80| 72 6f 6a 52 61 6e 6b 20 | 65 6c 73 65 20 70 75 74 |rojRank |else put|
|00003b90| 20 2d 2e 35 20 69 6e 74 | 6f 20 74 68 65 50 72 6f | -.5 int|o thePro|
|00003ba0| 6a 52 61 6e 6b 0d 70 75 | 74 20 31 2e 33 20 69 6e |jRank.pu|t 1.3 in|
|00003bb0| 74 6f 20 74 68 65 55 6e | 63 65 72 74 61 69 6e 74 |to theUn|certaint|
|00003bc0| 79 0d 65 6e 64 20 64 72 | 61 77 41 64 6a 75 73 74 |y.end dr|awAdjust|
|00003bd0| 4c 6f 77 0d 0d 0d 2d 2d | 72 65 74 75 72 6e 73 20 |Low...--|returns |
|00003be0| 68 69 67 68 20 72 61 6e | 6b 20 6f 66 20 68 61 6e |high ran|k of han|
|00003bf0| 64 2c 20 75 73 65 64 20 | 74 6f 20 65 76 61 6c 75 |d, used |to evalu|
|00003c00| 61 74 65 20 68 75 6d 61 | 6e 20 61 6e 64 20 4d 61 |ate huma|n and Ma|
|00003c10| 63 20 68 61 6e 64 73 0d | 2d 2d 6d 61 79 20 6d 6f |c hands.|--may mo|
|00003c20| 76 65 20 6a 6f 6b 65 72 | 20 66 72 6f 6d 20 31 73 |ve joker| from 1s|
|00003c30| 74 20 69 74 65 6d 20 69 | 6e 20 74 68 65 48 69 67 |t item i|n theHig|
|00003c40| 68 0d 66 75 6e 63 74 69 | 6f 6e 20 61 63 74 75 61 |h.functi|on actua|
|00003c50| 6c 48 69 67 68 20 68 61 | 6e 64 0d 47 4c 4f 42 41 |lHigh ha|nd.GLOBA|
|00003c60| 4c 20 74 68 65 48 61 6e | 64 2c 20 74 68 65 4b 69 |L theHan|d, theKi|
|00003c70| 6e 64 73 0d 69 66 20 68 | 61 6e 64 20 3d 20 65 6d |nds.if h|and = em|
|00003c80| 70 74 79 20 74 68 65 6e | 20 2d 2d 61 73 73 75 6d |pty then| --assum|
|00003c90| 65 20 74 68 61 74 20 4d | 61 63 27 73 20 68 61 6e |e that M|ac's han|
|00003ca0| 64 20 69 73 20 62 65 69 | 6e 67 20 65 76 61 6c 75 |d is bei|ng evalu|
|00003cb0| 61 74 65 64 0d 70 75 74 | 20 6d 61 74 63 68 65 73 |ated.put| matches|
|00003cc0| 28 74 68 65 48 61 6e 64 | 29 20 69 6e 74 6f 20 74 |(theHand|) into t|
|00003cd0| 68 65 4b 69 6e 64 73 20 | 2d 2d 70 61 69 72 73 2c |heKinds |--pairs,|
|00003ce0| 20 74 68 72 65 65 2d 6f | 66 2d 61 2d 6b 69 6e 64 | three-o|f-a-kind|
|00003cf0| 2c 20 65 74 63 2e 0d 70 | 75 74 20 74 68 65 48 61 |, etc..p|ut theHa|
|00003d00| 6e 64 20 69 6e 74 6f 20 | 68 61 6e 64 0d 70 75 74 |nd into |hand.put|
|00003d10| 20 74 68 65 4b 69 6e 64 | 73 20 69 6e 74 6f 20 6b | theKind|s into k|
|00003d20| 69 6e 64 73 0d 65 6c 73 | 65 0d 70 75 74 20 6d 61 |inds.els|e.put ma|
|00003d30| 74 63 68 65 73 28 68 61 | 6e 64 29 20 69 6e 74 6f |tches(ha|nd) into|
|00003d40| 20 6b 69 6e 64 73 0d 65 | 6e 64 20 69 66 0d 0d 70 | kinds.e|nd if..p|
|00003d50| 75 74 20 6b 69 6e 64 73 | 52 61 6e 6b 28 6b 69 6e |ut kinds|Rank(kin|
|00003d60| 64 73 29 20 69 6e 74 6f | 20 68 69 67 68 52 61 6e |ds) into| highRan|
|00003d70| 6b 0d 69 66 20 68 69 67 | 68 52 61 6e 6b 20 b3 20 |k.if hig|hRank . |
|00003d80| 31 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 6b 69 |1 then r|eturn ki|
|00003d90| 6e 64 73 20 26 20 72 65 | 74 75 72 6e 20 26 20 68 |nds & re|turn & h|
|00003da0| 69 67 68 52 61 6e 6b 0d | 69 66 20 68 69 67 68 52 |ighRank.|if highR|
|00003db0| 61 6e 6b 20 b3 20 30 20 | 74 68 65 6e 20 69 66 20 |ank . 0 |then if |
|00003dc0| 22 2a 22 20 69 73 20 6e | 6f 74 20 69 6e 20 6b 69 |"*" is n|ot in ki|
|00003dd0| 6e 64 73 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |nds then| return |
|00003de0| 28 6b 69 6e 64 73 20 26 | 20 72 65 74 75 72 6e 20 |(kinds &| return |
|00003df0| 26 20 68 69 67 68 52 61 | 6e 6b 29 20 2d 2d 6e 6f |& highRa|nk) --no|
|00003e00| 20 6a 6f 6b 65 72 3a 20 | 6e 6f 20 73 74 72 61 69 | joker: |no strai|
|00003e10| 67 68 74 20 6f 72 20 66 | 6c 75 73 68 0d 0d 70 75 |ght or f|lush..pu|
|00003e20| 74 20 73 74 72 61 69 67 | 68 74 28 68 61 6e 64 2c |t straig|ht(hand,|
|00003e30| 35 29 20 69 6e 74 6f 20 | 73 74 72 61 69 67 68 74 |5) into |straight|
|00003e40| 48 61 6e 64 0d 70 75 74 | 20 66 6c 75 73 68 28 68 |Hand.put| flush(h|
|00003e50| 61 6e 64 2c 35 29 20 69 | 6e 74 6f 20 66 6c 75 73 |and,5) i|nto flus|
|00003e60| 68 48 61 6e 64 0d 0d 69 | 66 20 73 74 72 61 69 67 |hHand..i|f straig|
|00003e70| 68 74 48 61 6e 64 20 ad | 20 65 6d 70 74 79 20 41 |htHand .| empty A|
|00003e80| 4e 44 20 66 6c 75 73 68 | 48 61 6e 64 20 ad 20 65 |ND flush|Hand . e|
|00003e90| 6d 70 74 79 20 74 68 65 | 6e 0d 70 75 74 20 68 61 |mpty the|n.put ha|
|00003ea0| 6e 64 20 69 6e 74 6f 20 | 68 69 67 68 0d 70 75 74 |nd into |high.put|
|00003eb0| 20 37 20 69 6e 74 6f 20 | 68 69 67 68 52 61 6e 6b | 7 into |highRank|
|00003ec0| 20 2d 2d 73 74 72 61 69 | 67 68 74 20 66 6c 75 73 | --strai|ght flus|
|00003ed0| 68 0d 72 65 74 75 72 6e | 20 28 68 69 67 68 20 26 |h.return| (high &|
|00003ee0| 20 72 65 74 75 72 6e 20 | 26 20 68 69 67 68 52 61 | return |& highRa|
|00003ef0| 6e 6b 29 0d 65 6e 64 20 | 69 66 0d 0d 69 66 20 66 |nk).end |if..if f|
|00003f00| 6c 75 73 68 48 61 6e 64 | 20 ad 20 65 6d 70 74 79 |lushHand| . empty|
|00003f10| 20 74 68 65 6e 0d 70 75 | 74 20 66 6c 75 73 68 48 | then.pu|t flushH|
|00003f20| 61 6e 64 20 69 6e 74 6f | 20 68 69 67 68 0d 70 75 |and into| high.pu|
|00003f30| 74 20 34 20 69 6e 74 6f | 20 68 69 67 68 52 61 6e |t 4 into| highRan|
|00003f40| 6b 0d 72 65 74 75 72 6e | 20 28 68 69 67 68 20 26 |k.return| (high &|
|00003f50| 20 72 65 74 75 72 6e 20 | 26 20 68 69 67 68 52 61 | return |& highRa|
|00003f60| 6e 6b 29 0d 65 6e 64 20 | 69 66 0d 0d 69 66 20 73 |nk).end |if..if s|
|00003f70| 74 72 61 69 67 68 74 48 | 61 6e 64 20 ad 20 65 6d |traightH|and . em|
|00003f80| 70 74 79 20 74 68 65 6e | 0d 70 75 74 20 73 74 72 |pty then|.put str|
|00003f90| 61 69 67 68 74 48 61 6e | 64 20 69 6e 74 6f 20 68 |aightHan|d into h|
|00003fa0| 69 67 68 0d 70 75 74 20 | 33 20 69 6e 74 6f 20 68 |igh.put |3 into h|
|00003fb0| 69 67 68 52 61 6e 6b 0d | 72 65 74 75 72 6e 20 28 |ighRank.|return (|
|00003fc0| 68 69 67 68 20 26 20 72 | 65 74 75 72 6e 20 26 20 |high & r|eturn & |
|00003fd0| 68 69 67 68 52 61 6e 6b | 29 0d 65 6e 64 20 69 66 |highRank|).end if|
|00003fe0| 0d 0d 72 65 74 75 72 6e | 20 6b 69 6e 64 73 20 26 |..return| kinds &|
|00003ff0| 20 72 65 74 75 72 6e 20 | 26 20 68 69 67 68 52 61 | return |& highRa|
|00004000| 6e 6b 0d 2d 2d 2d 20 20 | 69 66 20 6b 69 6e 64 73 |nk.---  |if kinds|
|00004010| 20 ad 20 65 6d 70 74 79 | 20 74 68 65 6e 20 2d 2d | . empty| then --|
|00004020| 6d 75 73 74 20 62 65 20 | 61 20 70 61 69 72 20 77 |must be |a pair w|
|00004030| 2f 20 61 20 6a 6f 6b 65 | 72 0d 2d 2d 2d 20 20 20 |/ a joke|r.---   |
|00004040| 69 66 20 68 69 67 68 52 | 61 6e 6b 20 ad 20 30 20 |if highR|ank . 0 |
|00004050| 74 68 65 6e 20 61 6e 73 | 77 65 72 20 22 45 72 72 |then ans|wer "Err|
|00004060| 6f 72 20 65 76 61 6c 75 | 61 74 69 6e 67 20 68 61 |or evalu|ating ha|
|00004070| 6e 64 2e 22 0d 2d 2d 2d | 20 20 20 72 65 74 75 72 |nd.".---|   retur|
|00004080| 6e 20 6b 69 6e 64 73 20 | 26 20 72 65 74 75 72 6e |n kinds |& return|
|00004090| 20 26 20 68 69 67 68 52 | 61 6e 6b 0d 2d 2d 2d 20 | & highR|ank.--- |
|000040a0| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 61 63 74 75 | end if.|end actu|
|000040b0| 61 6c 48 69 67 68 0d 0d | d7 2d 2d 68 61 6e 64 20 |alHigh..|.--hand |
|000040c0| 65 76 61 6c 75 61 74 69 | 6f 6e 20 70 72 6f 63 65 |evaluati|on proce|
|000040d0| 64 75 72 65 73 20 28 73 | 63 61 6e 20 66 6f 72 20 |dures (s|can for |
|000040e0| 73 74 72 61 69 67 68 74 | 73 2c 20 66 6c 75 73 68 |straight|s, flush|
|000040f0| 65 73 2c 20 65 74 63 2e | 29 0d 0d 2d 2d 72 65 74 |es, etc.|)..--ret|
|00004100| 75 72 6e 20 74 68 65 20 | 2a 68 69 67 68 65 73 74 |urn the |*highest|
|00004110| 2a 20 73 74 72 61 69 67 | 68 74 20 28 73 6f 20 77 |* straig|ht (so w|
|00004120| 68 65 6e 20 6c 6f 6f 6b | 69 6e 67 20 66 6f 72 20 |hen look|ing for |
|00004130| 33 2d 73 74 72 61 69 67 | 68 74 73 20 77 68 65 6e |3-straig|hts when|
|00004140| 0d 2d 2d 74 68 65 72 65 | 20 69 73 20 61 20 77 69 |.--there| is a wi|
|00004150| 6c 64 2d 63 61 72 64 2c | 20 69 74 20 77 6f 75 6c |ld-card,| it woul|
|00004160| 64 20 72 65 74 75 72 6e | 20 61 20 61 63 65 2d 68 |d return| a ace-h|
|00004170| 69 67 68 20 28 63 6c 6f | 73 65 64 29 20 73 74 72 |igh (clo|sed) str|
|00004180| 61 69 67 68 74 0d 2d 2d | 62 65 66 6f 72 65 20 61 |aight.--|before a|
|00004190| 6e 20 6f 70 65 6e 2d 65 | 6e 64 65 64 20 6d 69 64 |n open-e|nded mid|
|000041a0| 64 6c 65 20 73 74 72 61 | 69 67 68 74 29 6e 0d 2d |dle stra|ight)n.-|
|000041b0| 2d 73 68 6f 75 6c 64 20 | 6f 6e 6c 79 20 61 63 63 |-should |only acc|
|000041c0| 65 70 74 20 33 2d 73 74 | 72 61 69 67 68 74 73 20 |ept 3-st|raights |
|000041d0| 77 68 65 6e 20 63 68 65 | 63 6b 69 6e 67 20 33 2d |when che|cking 3-|
|000041e0| 66 6c 75 73 68 65 73 2d | 2d 66 6f 72 20 33 2d 73 |flushes-|-for 3-s|
|000041f0| 74 72 2d 66 6c 75 73 68 | 0d 66 75 6e 63 74 69 6f |tr-flush|.functio|
|00004200| 6e 20 73 74 72 61 69 67 | 68 74 20 68 61 6e 64 2c |n straig|ht hand,|
|00004210| 20 6d 69 6e 4e 75 6d 0d | 69 66 20 6d 69 6e 4e 75 | minNum.|if minNu|
|00004220| 6d 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 20 70 |m = empt|y then p|
|00004230| 75 74 20 34 20 69 6e 74 | 6f 20 6d 69 6e 4e 75 6d |ut 4 int|o minNum|
|00004240| 0d 70 75 74 20 6d 69 6e | 4e 75 6d 20 69 6e 74 6f |.put min|Num into|
|00004250| 20 6c 61 73 74 4e 75 6d | 54 6f 43 68 65 63 6b 0d | lastNum|ToCheck.|
|00004260| 0d 67 65 74 20 6f 66 66 | 73 65 74 28 22 2a 22 2c |.get off|set("*",|
|00004270| 68 61 6e 64 29 20 2d 2d | 6a 6f 6b 65 72 0d 69 66 |hand) --|joker.if|
|00004280| 20 69 74 20 3d 20 30 20 | 74 68 65 6e 0d 70 75 74 | it = 0 |then.put|
|00004290| 20 22 4e 41 22 20 69 6e | 74 6f 20 6a 6f 6b 65 72 | "NA" in|to joker|
|000042a0| 55 73 65 64 0d 65 6c 73 | 65 0d 64 65 6c 65 74 65 |Used.els|e.delete|
|000042b0| 20 69 74 65 6d 20 28 6e | 75 6d 62 65 72 20 6f 66 | item (n|umber of|
|000042c0| 20 69 74 65 6d 73 20 69 | 6e 20 63 68 61 72 20 31 | items i|n char 1|
|000042d0| 20 74 6f 20 69 74 20 6f | 66 20 68 61 6e 64 29 20 | to it o|f hand) |
|000042e0| 6f 66 20 68 61 6e 64 0d | 70 75 74 20 66 61 6c 73 |of hand.|put fals|
|000042f0| 65 20 69 6e 74 6f 20 6a | 6f 6b 65 72 55 73 65 64 |e into j|okerUsed|
|00004300| 0d 61 64 64 20 2d 31 20 | 74 6f 20 6c 61 73 74 4e |.add -1 |to lastN|
|00004310| 75 6d 54 6f 63 68 65 63 | 6b 0d 65 6e 64 20 69 66 |umTochec|k.end if|
|00004320| 0d 0d 2d 2d 69 66 20 61 | 63 65 2c 20 63 6f 76 65 |..--if a|ce, cove|
|00004330| 72 20 62 6f 74 68 20 65 | 6e 64 73 20 28 68 69 67 |r both e|nds (hig|
|00004340| 68 20 61 6e 64 20 6c 6f | 77 29 0d 69 66 20 77 6f |h and lo|w).if wo|
|00004350| 72 64 20 31 20 6f 66 20 | 68 61 6e 64 20 3d 20 31 |rd 1 of |hand = 1|
|00004360| 20 74 68 65 6e 0d 70 75 | 74 20 22 2c 31 34 22 20 | then.pu|t ",14" |
|00004370| 26 26 20 28 77 6f 72 64 | 20 32 20 6f 66 20 69 74 |&& (word| 2 of it|
|00004380| 65 6d 20 31 20 6f 66 20 | 68 61 6e 64 29 20 61 66 |em 1 of |hand) af|
|00004390| 74 65 72 20 68 61 6e 64 | 0d 65 6c 73 65 20 69 66 |ter hand|.else if|
|000043a0| 20 77 6f 72 64 20 31 20 | 6f 66 20 6c 61 73 74 20 | word 1 |of last |
|000043b0| 69 74 65 6d 20 6f 66 20 | 68 61 6e 64 20 3d 20 31 |item of |hand = 1|
|000043c0| 34 20 74 68 65 6e 0d 70 | 75 74 20 31 20 26 26 20 |4 then.p|ut 1 && |
|000043d0| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 68 61 6e |last wor|d of han|
|000043e0| 64 20 26 20 22 2c 22 20 | 62 65 66 6f 72 65 20 68 |d & "," |before h|
|000043f0| 61 6e 64 0d 65 6e 64 20 | 69 66 0d 0d 72 65 70 65 |and.end |if..repe|
|00004400| 61 74 20 77 69 74 68 20 | 63 64 4e 75 6d 20 3d 20 |at with |cdNum = |
|00004410| 28 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 |(number |of items|
|00004420| 20 69 6e 20 68 61 6e 64 | 29 20 64 6f 77 6e 20 74 | in hand|) down t|
|00004430| 6f 20 6c 61 73 74 4e 75 | 6d 54 6f 43 68 65 63 6b |o lastNu|mToCheck|
|00004440| 0d 70 75 74 20 69 74 65 | 6d 20 63 64 4e 75 6d 20 |.put ite|m cdNum |
|00004450| 6f 66 20 68 61 6e 64 20 | 69 6e 74 6f 20 73 74 61 |of hand |into sta|
|00004460| 72 74 43 61 72 64 0d 70 | 75 74 20 77 6f 72 64 20 |rtCard.p|ut word |
|00004470| 31 20 6f 66 20 73 74 61 | 72 74 43 61 72 64 20 69 |1 of sta|rtCard i|
|00004480| 6e 74 6f 20 68 69 67 68 | 56 61 6c 0d 70 75 74 20 |nto high|Val.put |
|00004490| 22 2c 22 20 26 20 73 74 | 61 72 74 43 61 72 64 20 |"," & st|artCard |
|000044a0| 69 6e 74 6f 20 61 53 74 | 72 61 69 67 68 74 0d 70 |into aSt|raight.p|
|000044b0| 75 74 20 30 20 69 6e 74 | 6f 20 73 6b 69 70 0d 0d |ut 0 int|o skip..|
|000044c0| 72 65 70 65 61 74 20 77 | 69 74 68 20 70 72 65 76 |repeat w|ith prev|
|000044d0| 43 64 4e 75 6d 20 3d 20 | 63 64 4e 75 6d 2d 31 20 |CdNum = |cdNum-1 |
|000044e0| 64 6f 77 6e 20 74 6f 20 | 31 0d 70 75 74 20 28 69 |down to |1.put (i|
|000044f0| 74 65 6d 20 70 72 65 76 | 43 64 4e 75 6d 20 6f 66 |tem prev|CdNum of|
|00004500| 20 68 61 6e 64 29 20 69 | 6e 74 6f 20 70 72 65 76 | hand) i|nto prev|
|00004510| 43 61 72 64 0d 70 75 74 | 20 77 6f 72 64 20 31 20 |Card.put| word 1 |
|00004520| 6f 66 20 70 72 65 76 43 | 61 72 64 20 69 6e 74 6f |of prevC|ard into|
|00004530| 20 6c 6f 77 56 61 6c 0d | 70 75 74 20 68 69 67 68 | lowVal.|put high|
|00004540| 56 61 6c 2d 6c 6f 77 56 | 61 6c 20 69 6e 74 6f 20 |Val-lowV|al into |
|00004550| 64 69 66 66 65 72 65 6e | 63 65 0d 0d 69 66 20 64 |differen|ce..if d|
|00004560| 69 66 66 65 72 65 6e 63 | 65 20 3d 20 30 20 74 68 |ifferenc|e = 0 th|
|00004570| 65 6e 20 6e 65 78 74 20 | 72 65 70 65 61 74 0d 69 |en next |repeat.i|
|00004580| 66 20 64 69 66 66 65 72 | 65 6e 63 65 20 3e 20 33 |f differ|ence > 3|
|00004590| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|000045a0| 74 0d 0d 69 66 20 64 69 | 66 66 65 72 65 6e 63 65 |t..if di|fference|
|000045b0| 20 3d 20 31 20 74 68 65 | 6e 20 2d 2d 73 65 71 75 | = 1 the|n --sequ|
|000045c0| 65 6e 63 65 20 69 6e 74 | 61 63 74 0d 70 75 74 20 |ence int|act.put |
|000045d0| 63 6f 6d 6d 61 20 26 20 | 70 72 65 76 43 61 72 64 |comma & |prevCard|
|000045e0| 20 62 65 66 6f 72 65 20 | 61 53 74 72 61 69 67 68 | before |aStraigh|
|000045f0| 74 0d 70 75 74 20 6c 6f | 77 56 61 6c 20 69 6e 74 |t.put lo|wVal int|
|00004600| 6f 20 68 69 67 68 56 61 | 6c 0d 6e 65 78 74 20 72 |o highVa|l.next r|
|00004610| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 0d 69 66 |epeat.en|d if..if|
|00004620| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00004630| 20 69 6e 20 61 53 74 72 | 61 69 67 68 74 20 b3 20 | in aStr|aight . |
|00004640| 35 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 70 65 |5 then e|xit repe|
|00004650| 61 74 20 2d 2d 6e 6f 20 | 72 6f 6f 6d 20 66 6f 72 |at --no |room for|
|00004660| 20 73 6b 69 70 0d 69 66 | 20 64 69 66 66 65 72 65 | skip.if| differe|
|00004670| 6e 63 65 20 3d 20 32 20 | 74 68 65 6e 0d 69 66 20 |nce = 2 |then.if |
|00004680| 6a 6f 6b 65 72 55 73 65 | 64 20 3d 20 66 61 6c 73 |jokerUse|d = fals|
|00004690| 65 20 20 74 68 65 6e 0d | 70 75 74 20 22 2c 22 20 |e  then.|put "," |
|000046a0| 26 20 68 69 67 68 56 61 | 6c 2d 31 20 26 26 20 22 |& highVa|l-1 && "|
|000046b0| 2a 22 20 62 65 66 6f 72 | 65 20 61 53 74 72 61 69 |*" befor|e aStrai|
|000046c0| 67 68 74 0d 70 75 74 20 | 74 72 75 65 20 69 6e 74 |ght.put |true int|
|000046d0| 6f 20 6a 6f 6b 65 72 55 | 73 65 64 0d 65 6c 73 65 |o jokerU|sed.else|
|000046e0| 0d 69 66 20 73 6b 69 70 | 20 ad 20 30 20 4f 52 20 |.if skip| . 0 OR |
|000046f0| 6d 69 6e 4e 75 6d 20 3d | 20 35 20 74 68 65 6e 20 |minNum =| 5 then |
|00004700| 65 78 69 74 20 72 65 70 | 65 61 74 0d 70 75 74 20 |exit rep|eat.put |
|00004710| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|00004720| 69 6e 20 61 53 74 72 61 | 69 67 68 74 20 69 6e 74 |in aStra|ight int|
|00004730| 6f 20 73 6b 69 70 0d 65 | 6e 64 20 69 66 0d 70 75 |o skip.e|nd if.pu|
|00004740| 74 20 63 6f 6d 6d 61 20 | 26 20 70 72 65 76 43 61 |t comma |& prevCa|
|00004750| 72 64 20 62 65 66 6f 72 | 65 20 61 53 74 72 61 69 |rd befor|e aStrai|
|00004760| 67 68 74 0d 70 75 74 20 | 6c 6f 77 56 61 6c 20 69 |ght.put |lowVal i|
|00004770| 6e 74 6f 20 68 69 67 68 | 56 61 6c 0d 6e 65 78 74 |nto high|Val.next|
|00004780| 20 72 65 70 65 61 74 0d | 65 6e 64 20 69 66 0d 0d | repeat.|end if..|
|00004790| 69 66 20 64 69 66 66 65 | 72 65 6e 63 65 20 3d 20 |if diffe|rence = |
|000047a0| 33 20 74 68 65 6e 0d 69 | 66 20 73 6b 69 70 20 ad |3 then.i|f skip .|
|000047b0| 20 30 20 4f 52 20 6a 6f | 6b 65 72 55 73 65 64 20 | 0 OR jo|kerUsed |
|000047c0| ad 20 66 61 6c 73 65 20 | 4f 52 20 6d 69 6e 4e 75 |. false |OR minNu|
|000047d0| 6d 20 3d 20 35 20 74 68 | 65 6e 20 65 78 69 74 20 |m = 5 th|en exit |
|000047e0| 72 65 70 65 61 74 0d 69 | 66 20 6e 75 6d 62 65 72 |repeat.i|f number|
|000047f0| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 61 53 74 | of item|s in aSt|
|00004800| 72 61 69 67 68 74 20 3e | 20 32 20 74 68 65 6e 20 |raight >| 2 then |
|00004810| 65 78 69 74 20 72 65 70 | 65 61 74 0d 70 75 74 20 |exit rep|eat.put |
|00004820| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|00004830| 69 6e 20 61 53 74 72 61 | 69 67 68 74 20 69 6e 74 |in aStra|ight int|
|00004840| 6f 20 73 6b 69 70 0d 70 | 75 74 20 74 72 75 65 20 |o skip.p|ut true |
|00004850| 69 6e 74 6f 20 6a 6f 6b | 65 72 55 73 65 64 0d 70 |into jok|erUsed.p|
|00004860| 75 74 20 22 2c 22 20 26 | 20 70 72 65 76 43 61 72 |ut "," &| prevCar|
|00004870| 64 20 26 20 22 2c 22 20 | 26 20 68 69 67 68 56 61 |d & "," |& highVa|
|00004880| 6c 2d 31 20 26 26 20 22 | 2a 22 20 62 65 66 6f 72 |l-1 && "|*" befor|
|00004890| 65 20 61 53 74 72 61 69 | 67 68 74 0d 70 75 74 20 |e aStrai|ght.put |
|000048a0| 6c 6f 77 56 61 6c 20 69 | 6e 74 6f 20 68 69 67 68 |lowVal i|nto high|
|000048b0| 56 61 6c 0d 65 6e 64 20 | 69 66 0d 0d 65 6e 64 20 |Val.end |if..end |
|000048c0| 72 65 70 65 61 74 0d 64 | 65 6c 65 74 65 20 63 68 |repeat.d|elete ch|
|000048d0| 61 72 20 31 20 6f 66 20 | 61 53 74 72 61 69 67 68 |ar 1 of |aStraigh|
|000048e0| 74 20 2d 2d 63 6f 6d 6d | 61 0d 0d 69 66 20 6a 6f |t --comm|a..if jo|
|000048f0| 6b 65 72 55 73 65 64 20 | 3d 20 66 61 6c 73 65 20 |kerUsed |= false |
|00004900| 74 68 65 6e 0d 70 75 74 | 20 28 77 6f 72 64 20 31 |then.put| (word 1|
|00004910| 20 6f 66 20 6c 61 73 74 | 20 69 74 65 6d 20 6f 66 | of last| item of|
|00004920| 20 61 53 74 72 61 69 67 | 68 74 29 20 69 6e 74 6f | aStraig|ht) into|
|00004930| 20 68 69 67 68 43 64 0d | 69 66 20 20 68 69 67 68 | highCd.|if  high|
|00004940| 43 64 20 3d 20 31 34 20 | 74 68 65 6e 0d 70 75 74 |Cd = 14 |then.put|
|00004950| 20 28 77 6f 72 64 20 31 | 20 6f 66 20 61 53 74 72 | (word 1| of aStr|
|00004960| 61 69 67 68 74 29 2d 31 | 20 26 26 20 22 2a 2c 22 |aight)-1| && "*,"|
|00004970| 20 62 65 66 6f 72 65 20 | 61 53 74 72 61 69 67 68 | before |aStraigh|
|00004980| 74 0d 65 6c 73 65 0d 70 | 75 74 20 22 2c 22 20 26 |t.else.p|ut "," &|
|00004990| 20 28 68 69 67 68 43 64 | 20 2b 20 31 29 20 26 26 | (highCd| + 1) &&|
|000049a0| 20 22 2a 22 20 61 66 74 | 65 72 20 61 53 74 72 61 | "*" aft|er aStra|
|000049b0| 69 67 68 74 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ight.end| if.end |
|000049c0| 69 66 0d 0d 69 66 20 73 | 6b 69 70 20 ad 20 30 20 |if..if s|kip . 0 |
|000049d0| 74 68 65 6e 20 2d 2d 66 | 69 64 64 6c 65 0d 69 66 |then --f|iddle.if|
|000049e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|000049f0| 20 69 6e 20 61 53 74 72 | 61 69 67 68 74 20 3d 20 | in aStr|aight = |
|00004a00| 35 20 74 68 65 6e 0d 69 | 66 20 69 74 65 6d 20 34 |5 then.i|f item 4|
|00004a10| 20 6f 66 20 61 53 74 72 | 61 69 67 68 74 20 63 6f | of aStr|aight co|
|00004a20| 6e 74 61 69 6e 73 20 22 | 2a 22 20 74 68 65 6e 20 |ntains "|*" then |
|00004a30| 2d 2d 6e 6f 74 20 69 6e | 73 69 64 65 20 73 74 72 |--not in|side str|
|00004a40| 20 61 66 74 65 72 20 61 | 6c 6c 0d 2d 2d 2d 20 67 | after a|ll.--- g|
|00004a50| 65 74 20 77 6f 72 64 20 | 31 20 6f 66 20 69 74 65 |et word |1 of ite|
|00004a60| 6d 20 28 35 2d 73 6b 69 | 70 29 2b 31 20 6f 66 20 |m (5-ski|p)+1 of |
|00004a70| 61 53 74 72 61 69 67 68 | 74 0d 2d 2d 2d 20 20 70 |aStraigh|t.---  p|
|00004a80| 75 74 20 28 22 2c 22 20 | 26 20 69 74 20 26 26 20 |ut ("," |& it && |
|00004a90| 22 2a 22 29 20 61 66 74 | 65 72 20 69 74 65 6d 20 |"*") aft|er item |
|00004aa0| 28 35 2d 73 6b 69 70 29 | 2b 31 20 6f 66 20 61 53 |(5-skip)|+1 of aS|
|00004ab0| 74 72 61 69 67 68 74 0d | 2d 2d 2d 20 64 65 6c 65 |traight.|--- dele|
|00004ac0| 74 65 20 6c 61 73 74 20 | 69 74 65 6d 20 6f 66 20 |te last |item of |
|00004ad0| 61 53 74 72 61 69 67 68 | 74 0d 70 75 74 20 28 77 |aStraigh|t.put (w|
|00004ae0| 6f 72 64 20 31 20 6f 66 | 20 69 74 65 6d 20 33 20 |ord 1 of| item 3 |
|00004af0| 6f 66 20 61 53 74 72 61 | 69 67 68 74 29 2b 31 20 |of aStra|ight)+1 |
|00004b00| 69 6e 74 6f 20 77 6f 72 | 64 20 31 20 6f 66 20 69 |into wor|d 1 of i|
|00004b10| 74 65 6d 20 34 20 6f 66 | 20 61 53 54 72 61 69 67 |tem 4 of| aSTraig|
|00004b20| 68 74 0d 65 6e 64 20 69 | 66 0d 64 65 6c 65 74 65 |ht.end i|f.delete|
|00004b30| 20 6c 61 73 74 20 69 74 | 65 6d 20 6f 66 20 61 53 | last it|em of aS|
|00004b40| 74 72 61 69 67 68 74 0d | 72 65 74 75 72 6e 20 61 |traight.|return a|
|00004b50| 53 74 72 61 69 67 68 74 | 0d 65 6e 64 20 69 66 0d |Straight|.end if.|
|00004b60| 65 6e 64 20 69 66 0d 0d | 69 66 20 6e 75 6d 62 65 |end if..|if numbe|
|00004b70| 72 20 6f 66 20 69 74 65 | 6d 73 20 69 6e 20 61 53 |r of ite|ms in aS|
|00004b80| 74 72 61 69 67 68 74 20 | b3 20 6d 69 6e 4e 75 6d |traight |. minNum|
|00004b90| 20 74 68 65 6e 20 72 65 | 74 75 72 6e 20 61 53 74 | then re|turn aSt|
|00004ba0| 72 61 69 67 68 74 0d 69 | 66 20 6a 6f 6b 65 72 55 |raight.i|f jokerU|
|00004bb0| 73 65 64 20 3c 3e 20 22 | 4e 41 22 20 74 68 65 6e |sed <> "|NA" then|
|00004bc0| 20 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 | put fal|se into |
|00004bd0| 6a 6f 6b 65 72 55 73 65 | 64 0d 65 6e 64 20 72 65 |jokerUse|d.end re|
|00004be0| 70 65 61 74 0d 65 6e 64 | 20 73 74 72 61 69 67 68 |peat.end| straigh|
|00004bf0| 74 0d 0d 6f 6e 20 73 74 | 72 46 6c 75 73 68 20 66 |t..on st|rFlush f|
|00004c00| 6c 75 73 68 48 61 6e 64 | 0d 47 4c 4f 42 41 4c 20 |lushHand|.GLOBAL |
|00004c10| 74 68 65 48 69 67 68 2c | 20 74 68 65 48 69 67 68 |theHigh,| theHigh|
|00004c20| 52 61 6e 6b 2c 20 74 68 | 65 50 48 52 61 6e 6b 2c |Rank, th|ePHRank,|
|00004c30| 74 68 65 50 6f 74 65 6e | 74 69 61 6c 48 69 67 68 |thePoten|tialHigh|
|00004c40| 0d 70 75 74 20 73 74 72 | 61 69 67 68 74 28 66 6c |.put str|aight(fl|
|00004c50| 75 73 68 48 61 6e 64 2c | 33 29 20 69 6e 74 6f 20 |ushHand,|3) into |
|00004c60| 73 66 0d 69 66 20 73 66 | 20 3d 20 65 6d 70 74 79 |sf.if sf| = empty|
|00004c70| 20 74 68 65 6e 20 65 78 | 69 74 20 73 74 72 46 6c | then ex|it strFl|
|00004c80| 75 73 68 0d 70 75 74 20 | 6e 75 6d 62 65 72 20 6f |ush.put |number o|
|00004c90| 66 20 69 74 65 6d 73 20 | 69 6e 20 73 66 20 69 6e |f items |in sf in|
|00004ca0| 74 6f 20 73 66 4c 65 6e | 67 74 68 0d 69 66 20 73 |to sfLen|gth.if s|
|00004cb0| 66 4c 65 6e 67 74 68 20 | 3d 20 35 20 74 68 65 6e |fLength |= 5 then|
|00004cc0| 0d 70 75 74 20 73 66 20 | 69 6e 74 6f 20 74 68 65 |.put sf |into the|
|00004cd0| 48 69 67 68 0d 70 75 74 | 20 37 20 69 6e 74 6f 20 |High.put| 7 into |
|00004ce0| 74 68 65 48 69 67 68 52 | 61 6e 6b 0d 65 78 69 74 |theHighR|ank.exit|
|00004cf0| 20 73 74 72 46 6c 75 73 | 68 0d 65 6e 64 20 69 66 | strFlus|h.end if|
|00004d00| 0d 0d 70 75 74 20 77 6f | 72 64 20 31 20 6f 66 20 |..put wo|rd 1 of |
|00004d10| 69 74 65 6d 20 31 20 6f | 66 20 73 66 20 69 6e 74 |item 1 o|f sf int|
|00004d20| 6f 20 73 74 61 72 74 43 | 64 0d 70 75 74 20 77 6f |o startC|d.put wo|
|00004d30| 72 64 20 31 20 6f 66 20 | 6c 61 73 74 20 69 74 65 |rd 1 of |last ite|
|00004d40| 6d 20 6f 66 20 73 66 20 | 69 6e 74 6f 20 65 6e 64 |m of sf |into end|
|00004d50| 43 64 0d 70 75 74 20 65 | 6e 64 43 64 20 2d 20 73 |Cd.put e|ndCd - s|
|00004d60| 74 61 72 74 43 64 20 69 | 6e 74 6f 20 72 75 6e 0d |tartCd i|nto run.|
|00004d70| 0d 69 66 20 73 66 4c 65 | 6e 67 74 68 20 3d 20 34 |.if sfLe|ngth = 4|
|00004d80| 20 74 68 65 6e 20 2d 2d | 34 20 63 64 20 73 74 72 | then --|4 cd str|
|00004d90| 20 66 6c 75 73 68 0d 70 | 75 74 20 28 73 74 61 72 | flush.p|ut (star|
|00004da0| 74 43 64 20 3d 20 31 20 | 4f 52 20 65 6e 64 43 44 |tCd = 1 |OR endCD|
|00004db0| 20 3d 20 31 34 29 20 69 | 6e 74 6f 20 63 6c 6f 73 | = 14) i|nto clos|
|00004dc0| 65 64 0d 69 66 20 63 6c | 6f 73 65 64 20 41 4e 44 |ed.if cl|osed AND|
|00004dd0| 20 72 75 6e 20 b3 20 34 | 20 41 4e 44 20 22 2a 22 | run . 4| AND "*"|
|00004de0| 20 69 73 20 6e 6f 74 20 | 69 6e 20 73 66 20 74 68 | is not |in sf th|
|00004df0| 65 6e 20 65 78 69 74 20 | 73 74 72 46 6c 75 73 68 |en exit |strFlush|
|00004e00| 0d 69 66 20 63 6c 6f 73 | 65 64 20 4f 52 20 72 75 |.if clos|ed OR ru|
|00004e10| 6e 20 b3 20 34 0d 74 68 | 65 6e 20 70 75 74 20 34 |n . 4.th|en put 4|
|00004e20| 20 69 6e 74 6f 20 74 68 | 65 50 48 52 61 6e 6b 20 | into th|ePHRank |
|00004e30| 2d 2d 69 6e 73 69 64 65 | 20 73 74 72 61 69 67 68 |--inside| straigh|
|00004e40| 74 0d 65 6c 73 65 20 70 | 75 74 20 35 20 69 6e 74 |t.else p|ut 5 int|
|00004e50| 6f 20 74 68 65 50 48 52 | 61 6e 6b 20 2d 2d 6f 70 |o thePHR|ank --op|
|00004e60| 65 6e 20 73 74 72 61 69 | 67 68 74 0d 70 75 74 20 |en strai|ght.put |
|00004e70| 73 66 20 69 6e 74 6f 20 | 74 68 65 50 6f 74 65 6e |sf into |thePoten|
|00004e80| 74 69 61 6c 48 69 67 68 | 0d 65 78 69 74 20 73 74 |tialHigh|.exit st|
|00004e90| 72 46 6c 75 73 68 0d 65 | 6e 64 20 69 66 0d 0d 2d |rFlush.e|nd if..-|
|00004ea0| 2d 33 20 63 64 20 73 74 | 72 61 69 67 68 74 20 66 |-3 cd st|raight f|
|00004eb0| 6c 75 73 68 20 61 63 65 | 20 4f 4b 2c 20 62 65 63 |lush ace| OK, bec|
|00004ec0| 61 75 73 65 20 6d 61 79 | 20 63 61 74 63 68 20 33 |ause may| catch 3|
|00004ed0| 20 61 63 65 73 0d 69 66 | 20 72 75 6e 20 b3 20 33 | aces.if| run . 3|
|00004ee0| 20 74 68 65 6e 20 65 78 | 69 74 20 73 74 72 46 6c | then ex|it strFl|
|00004ef0| 75 73 68 0d 70 75 74 20 | 32 20 69 6e 74 6f 20 74 |ush.put |2 into t|
|00004f00| 68 65 50 48 52 61 6e 6b | 0d 70 75 74 20 73 66 20 |hePHRank|.put sf |
|00004f10| 69 6e 74 6f 20 74 68 65 | 50 6f 74 65 6e 74 69 61 |into the|Potentia|
|00004f20| 6c 48 69 67 68 0d 65 6e | 64 20 73 74 72 46 6c 75 |lHigh.en|d strFlu|
|00004f30| 73 68 0d 0d 2d 2d 6e 6f | 74 20 61 63 63 75 72 61 |sh..--no|t accura|
|00004f40| 74 65 20 61 66 74 65 72 | 20 66 6c 75 73 68 2c 20 |te after| flush, |
|00004f50| 62 75 74 20 64 6f 65 73 | 6e 27 74 20 6e 65 65 64 |but does|n't need|
|00004f60| 20 74 6f 20 62 65 0d 66 | 75 6e 63 74 69 6f 6e 20 | to be.f|unction |
|00004f70| 68 69 67 68 72 61 6e 6b | 20 68 61 6e 64 54 6f 50 |highrank| handToP|
|00004f80| 6c 61 79 2c 20 68 61 6e | 64 54 79 70 65 0d 70 75 |lay, han|dType.pu|
|00004f90| 74 20 68 61 6e 64 54 79 | 70 65 20 2a 20 31 33 20 |t handTy|pe * 13 |
|00004fa0| 69 6e 74 6f 20 68 61 6e | 64 52 61 6e 6b 0d 69 66 |into han|dRank.if|
|00004fb0| 20 68 61 6e 64 54 79 70 | 65 20 3d 20 34 20 74 68 | handTyp|e = 4 th|
|00004fc0| 65 6e 20 73 75 62 74 72 | 61 63 74 20 33 20 66 72 |en subtr|act 3 fr|
|00004fd0| 6f 6d 20 68 61 6e 64 52 | 61 6e 6b 0d 70 75 74 20 |om handR|ank.put |
|00004fe0| 77 6f 72 64 20 31 20 6f | 66 20 6c 61 73 74 20 69 |word 1 o|f last i|
|00004ff0| 74 65 6d 20 6f 66 20 68 | 61 6e 64 54 6f 50 6c 61 |tem of h|andToPla|
|00005000| 79 20 69 6e 74 6f 20 68 | 69 67 68 43 61 72 64 0d |y into h|ighCard.|
|00005010| 72 65 74 75 72 6e 20 68 | 69 67 68 43 61 72 64 20 |return h|ighCard |
|00005020| 2b 20 68 61 6e 64 52 61 | 6e 6b 0d 65 6e 64 20 68 |+ handRa|nk.end h|
|00005030| 69 67 68 52 61 6e 6b 0d | 0d 2d 2d 61 73 73 75 6d |ighRank.|.--assum|
|00005040| 65 73 20 73 6f 72 74 65 | 64 20 68 61 6e 64 0d 66 |es sorte|d hand.f|
|00005050| 75 6e 63 74 69 6f 6e 20 | 6d 61 74 63 68 65 73 20 |unction |matches |
|00005060| 68 61 6e 64 2c 69 74 65 | 6d 4e 75 6d 0d 0d 70 75 |hand,ite|mNum..pu|
|00005070| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 6d 61 74 |t empty |into mat|
|00005080| 63 68 65 73 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |ches.put| empty i|
|00005090| 6e 74 6f 20 63 64 54 6f | 43 68 65 63 6b 0d 0d 2d |nto cdTo|Check..-|
|000050a0| 2d 6a 6f 6b 65 72 20 63 | 6f 75 6c 64 20 62 65 20 |-joker c|ould be |
|000050b0| 69 6e 20 61 6e 79 20 70 | 6f 73 69 74 69 6f 6e 3f |in any p|osition?|
|000050c0| 0d 67 65 74 20 6f 66 66 | 73 65 74 28 22 2a 22 2c |.get off|set("*",|
|000050d0| 68 61 6e 64 29 0d 69 66 | 20 69 74 20 ad 20 30 20 |hand).if| it . 0 |
|000050e0| 74 68 65 6e 0d 70 75 74 | 20 28 6e 75 6d 62 65 72 |then.put| (number|
|000050f0| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 63 68 61 | of item|s in cha|
|00005100| 72 20 31 20 74 6f 20 69 | 74 20 6f 66 20 68 61 6e |r 1 to i|t of han|
|00005110| 64 29 20 69 6e 74 6f 20 | 69 74 65 6d 4e 75 6d 0d |d) into |itemNum.|
|00005120| 64 65 6c 65 74 65 20 69 | 74 65 6d 20 69 74 65 6d |delete i|tem item|
|00005130| 4e 75 6d 20 6f 66 20 68 | 61 6e 64 0d 70 75 74 20 |Num of h|and.put |
|00005140| 22 31 34 20 2a 22 20 69 | 6e 74 6f 20 63 64 54 6f |"14 *" i|nto cdTo|
|00005150| 43 68 65 63 6b 0d 70 75 | 74 20 31 34 20 69 6e 74 |Check.pu|t 14 int|
|00005160| 6f 20 76 61 6c 54 6f 43 | 68 65 63 6b 0d 65 6e 64 |o valToC|heck.end|
|00005170| 20 69 66 0d 0d 69 66 20 | 22 2c 22 20 26 20 68 61 | if..if |"," & ha|
|00005180| 6e 64 20 63 6f 6e 74 61 | 69 6e 73 20 22 2c 31 20 |nd conta|ins ",1 |
|00005190| 22 20 74 68 65 6e 20 70 | 75 74 20 61 63 65 73 28 |" then p|ut aces(|
|000051a0| 68 61 6e 64 2c 22 68 69 | 67 68 22 29 20 69 6e 74 |hand,"hi|gh") int|
|000051b0| 6f 20 68 61 6e 64 0d 0d | 69 66 20 63 64 54 6f 63 |o hand..|if cdToc|
|000051c0| 68 65 63 6b 20 3d 20 65 | 6d 70 74 79 20 74 68 65 |heck = e|mpty the|
|000051d0| 6e 0d 70 75 74 20 6c 61 | 73 74 20 69 74 65 6d 20 |n.put la|st item |
|000051e0| 6f 66 20 68 61 6e 64 20 | 69 6e 74 6f 20 63 64 54 |of hand |into cdT|
|000051f0| 6f 43 68 65 63 6b 0d 70 | 75 74 20 77 6f 72 64 20 |oCheck.p|ut word |
|00005200| 31 20 6f 66 20 63 64 54 | 6f 43 68 65 63 6b 20 69 |1 of cdT|oCheck i|
|00005210| 6e 74 6f 20 76 61 6c 54 | 6f 43 68 65 63 6b 0d 64 |nto valT|oCheck.d|
|00005220| 65 6c 65 74 65 20 6c 61 | 73 74 20 69 74 65 6d 20 |elete la|st item |
|00005230| 6f 66 20 68 61 6e 64 0d | 65 6e 64 20 69 66 0d 0d |of hand.|end if..|
|00005240| 72 65 70 65 61 74 0d 67 | 65 74 20 6f 66 66 73 65 |repeat.g|et offse|
|00005250| 74 28 22 2c 22 20 26 20 | 76 61 6c 54 6f 43 68 65 |t("," & |valToChe|
|00005260| 63 6b 20 26 20 22 20 22 | 2c 22 2c 22 20 26 20 68 |ck & " "|,"," & h|
|00005270| 61 6e 64 29 0d 69 66 20 | 69 74 20 ad 20 30 20 74 |and).if |it . 0 t|
|00005280| 68 65 6e 0d 70 75 74 20 | 6e 75 6d 62 65 72 20 6f |hen.put |number o|
|00005290| 66 20 69 74 65 6d 73 20 | 69 6e 20 63 68 61 72 20 |f items |in char |
|000052a0| 31 20 74 6f 20 69 74 20 | 6f 66 20 68 61 6e 64 20 |1 to it |of hand |
|000052b0| 69 6e 74 6f 20 69 74 65 | 6d 4e 75 6d 0d 70 75 74 |into ite|mNum.put|
|000052c0| 20 28 69 74 65 6d 20 69 | 74 65 6d 4e 75 6d 20 74 | (item i|temNum t|
|000052d0| 6f 20 35 20 6f 66 20 68 | 61 6e 64 29 20 26 20 22 |o 5 of h|and) & "|
|000052e0| 2c 22 20 26 20 63 64 54 | 6f 63 68 65 63 6b 20 69 |," & cdT|ocheck i|
|000052f0| 6e 74 6f 20 6b 69 6e 64 | 0d 69 66 20 76 61 6c 54 |nto kind|.if valT|
|00005300| 6f 63 68 65 63 6b 20 3d | 20 31 34 20 74 68 65 6e |ocheck =| 14 then|
|00005310| 20 70 75 74 20 22 2c 22 | 20 26 20 6b 69 6e 64 20 | put ","| & kind |
|00005320| 61 66 74 65 72 20 6d 61 | 74 63 68 65 73 0d 65 6c |after ma|tches.el|
|00005330| 73 65 20 70 75 74 20 22 | 2c 22 20 26 20 6b 69 6e |se put "|," & kin|
|00005340| 64 20 62 65 66 6f 72 65 | 20 6d 61 74 63 68 65 73 |d before| matches|
|00005350| 0d 64 65 6c 65 74 65 20 | 69 74 65 6d 20 69 74 65 |.delete |item ite|
|00005360| 6d 4e 75 6d 20 74 6f 20 | 35 20 6f 66 20 68 61 6e |mNum to |5 of han|
|00005370| 64 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 6e 75 6d |d.end if|..if num|
|00005380| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00005390| 68 61 6e 64 20 3c 20 32 | 20 74 68 65 6e 20 65 78 |hand < 2| then ex|
|000053a0| 69 74 20 72 65 70 65 61 | 74 0d 0d 70 75 74 20 6c |it repea|t..put l|
|000053b0| 61 73 74 20 69 74 65 6d | 20 6f 66 20 68 61 6e 64 |ast item| of hand|
|000053c0| 20 69 6e 74 6f 20 63 64 | 54 6f 43 68 65 63 6b 0d | into cd|ToCheck.|
|000053d0| 70 75 74 20 77 6f 72 64 | 20 31 20 6f 66 20 63 64 |put word| 1 of cd|
|000053e0| 54 6f 43 68 65 63 6b 20 | 69 6e 74 6f 20 76 61 6c |ToCheck |into val|
|000053f0| 54 6f 43 68 65 63 6b 0d | 64 65 6c 65 74 65 20 6c |ToCheck.|delete l|
|00005400| 61 73 74 20 69 74 65 6d | 20 6f 66 20 68 61 6e 64 |ast item| of hand|
|00005410| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 0d 64 65 6c |.end rep|eat..del|
|00005420| 65 74 65 20 63 68 61 72 | 20 31 20 6f 66 20 6d 61 |ete char| 1 of ma|
|00005430| 74 63 68 65 73 20 2d 2d | 22 2c 22 0d 72 65 74 75 |tches --|",".retu|
|00005440| 72 6e 20 6d 61 74 63 68 | 65 73 0d 65 6e 64 20 6d |rn match|es.end m|
|00005450| 61 74 63 68 65 73 0d 0d | 2d 2d 61 73 73 75 6d 65 |atches..|--assume|
|00005460| 73 20 6a 6f 6b 65 72 20 | 69 6e 20 66 69 72 73 74 |s joker |in first|
|00005470| 20 70 6f 73 69 74 69 6f | 6e 0d 2d 2d 6d 61 6b 65 | positio|n.--make|
|00005480| 73 20 6a 6f 6b 65 72 20 | 61 6e 20 61 63 65 2c 20 |s joker |an ace, |
|00005490| 72 65 67 61 72 64 6c 65 | 73 73 20 6f 66 20 77 68 |regardle|ss of wh|
|000054a0| 65 74 68 65 72 20 61 6e | 6f 74 68 65 72 20 61 63 |ether an|other ac|
|000054b0| 65 20 69 73 20 69 6e 20 | 66 6c 75 73 68 0d 66 75 |e is in |flush.fu|
|000054c0| 6e 63 74 69 6f 6e 20 66 | 6c 75 73 68 20 68 61 6e |nction f|lush han|
|000054d0| 64 2c 20 6d 69 6e 4c 65 | 6e 67 74 68 0d 69 66 20 |d, minLe|ngth.if |
|000054e0| 6d 69 6e 4c 65 6e 67 74 | 68 20 3d 20 65 6d 70 74 |minLengt|h = empt|
|000054f0| 79 20 74 68 65 6e 20 70 | 75 74 20 34 20 69 6e 74 |y then p|ut 4 int|
|00005500| 6f 20 6d 69 6e 4c 65 6e | 67 74 68 0d 70 75 74 20 |o minLen|gth.put |
|00005510| 6f 66 66 73 65 74 28 22 | 2a 22 2c 68 61 6e 64 29 |offset("|*",hand)|
|00005520| 20 69 6e 74 6f 20 6a 6f | 6b 65 72 0d 69 66 20 6a | into jo|ker.if j|
|00005530| 6f 6b 65 72 20 ad 20 30 | 20 74 68 65 6e 0d 70 75 |oker . 0| then.pu|
|00005540| 74 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |t number| of item|
|00005550| 73 20 69 6e 20 63 68 61 | 72 20 31 20 74 6f 20 6a |s in cha|r 1 to j|
|00005560| 6f 6b 65 72 20 6f 66 20 | 68 61 6e 64 20 69 6e 74 |oker of |hand int|
|00005570| 6f 20 69 74 65 6d 4e 75 | 6d 0d 64 65 6c 65 74 65 |o itemNu|m.delete|
|00005580| 20 69 74 65 6d 20 69 74 | 65 6d 4e 75 6d 20 6f 66 | item it|emNum of|
|00005590| 20 68 61 6e 64 0d 61 64 | 64 20 2d 31 20 74 6f 20 | hand.ad|d -1 to |
|000055a0| 6d 69 6e 4c 65 6e 67 74 | 68 0d 65 6e 64 20 69 66 |minLengt|h.end if|
|000055b0| 0d 0d 70 75 74 20 30 20 | 69 6e 74 6f 20 63 64 73 |..put 0 |into cds|
|000055c0| 43 6f 75 6e 74 65 64 0d | 70 75 74 20 22 63 64 68 |Counted.|put "cdh|
|000055d0| 73 22 20 69 6e 74 6f 20 | 73 75 69 74 4c 69 73 74 |s" into |suitList|
|000055e0| 0d 72 65 70 65 61 74 0d | 70 75 74 20 63 68 61 72 |.repeat.|put char|
|000055f0| 20 31 20 6f 66 20 73 75 | 69 74 4c 69 73 74 20 69 | 1 of su|itList i|
|00005600| 6e 74 6f 20 73 75 69 74 | 0d 64 65 6c 65 74 65 20 |nto suit|.delete |
|00005610| 63 68 61 72 20 31 20 6f | 66 20 73 75 69 74 4c 69 |char 1 o|f suitLi|
|00005620| 73 74 0d 70 75 74 20 73 | 65 61 72 63 68 28 68 61 |st.put s|earch(ha|
|00005630| 6e 64 2c 73 75 69 74 2c | 74 72 75 65 2c 22 61 6c |nd,suit,|true,"al|
|00005640| 6c 22 29 20 69 6e 74 6f | 20 73 75 69 74 48 69 74 |l") into| suitHit|
|00005650| 73 0d 70 75 74 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s.put nu|mber of |
|00005660| 6c 69 6e 65 73 20 69 6e | 20 73 75 69 74 48 69 74 |lines in| suitHit|
|00005670| 73 20 69 6e 74 6f 20 66 | 6c 75 73 68 4c 65 6e 67 |s into f|lushLeng|
|00005680| 74 68 0d 69 66 20 6e 75 | 6d 62 65 72 20 6f 66 20 |th.if nu|mber of |
|00005690| 6c 69 6e 65 73 20 69 6e | 20 73 75 69 74 48 69 74 |lines in| suitHit|
|000056a0| 73 20 b3 20 6d 69 6e 4c | 65 6e 67 74 68 20 74 68 |s . minL|ength th|
|000056b0| 65 6e 20 65 78 69 74 20 | 72 65 70 65 61 74 0d 61 |en exit |repeat.a|
|000056c0| 64 64 20 66 6c 75 73 68 | 4c 65 6e 67 74 68 20 74 |dd flush|Length t|
|000056d0| 6f 20 63 64 73 43 6f 75 | 6e 74 65 64 0d 69 66 20 |o cdsCou|nted.if |
|000056e0| 63 64 73 43 6f 75 6e 74 | 65 64 20 b3 20 6d 69 6e |cdsCount|ed . min|
|000056f0| 6c 65 6e 67 74 68 20 74 | 68 65 6e 20 65 78 69 74 |length t|hen exit|
|00005700| 20 66 6c 75 73 68 0d 65 | 6e 64 20 72 65 70 65 61 | flush.e|nd repea|
|00005710| 74 0d 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 63 |t..repea|t with c|
|00005720| 64 4e 75 6d 20 3d 20 31 | 20 74 6f 20 66 6c 75 73 |dNum = 1| to flus|
|00005730| 68 4c 65 6e 67 74 68 0d | 70 75 74 20 69 74 65 6d |hLength.|put item|
|00005740| 20 32 20 6f 66 20 6c 69 | 6e 65 20 63 64 4e 75 6d | 2 of li|ne cdNum|
|00005750| 20 6f 66 20 73 75 69 74 | 48 69 74 73 20 69 6e 74 | of suit|Hits int|
|00005760| 6f 20 68 61 6e 64 49 74 | 65 6d 0d 70 75 74 20 28 |o handIt|em.put (|
|00005770| 69 74 65 6d 20 68 61 6e | 64 49 74 65 6d 20 6f 66 |item han|dItem of|
|00005780| 20 68 61 6e 64 29 20 26 | 20 22 2c 22 20 61 66 74 | hand) &| "," aft|
|00005790| 65 72 20 61 46 6c 75 73 | 68 0d 65 6e 64 20 72 65 |er aFlus|h.end re|
|000057a0| 70 65 61 74 0d 0d 69 66 | 20 6a 6f 6b 65 72 20 ad |peat..if| joker .|
|000057b0| 20 30 20 74 68 65 6e 20 | 70 75 74 20 22 31 34 20 | 0 then |put "14 |
|000057c0| 2a 22 20 61 66 74 65 72 | 20 61 46 6c 75 73 68 0d |*" after| aFlush.|
|000057d0| 65 6c 73 65 20 64 65 6c | 65 74 65 20 6c 61 73 74 |else del|ete last|
|000057e0| 20 63 68 61 72 20 6f 66 | 20 61 46 6c 75 73 68 20 | char of| aFlush |
|000057f0| 2d 2d 63 6f 6d 6d 61 0d | 70 75 74 20 61 63 65 73 |--comma.|put aces|
|00005800| 28 61 46 6c 75 73 68 2c | 22 68 69 67 68 22 29 20 |(aFlush,|"high") |
|00005810| 69 6e 74 6f 20 61 46 6c | 75 73 68 0d 0d 72 65 74 |into aFl|ush..ret|
|00005820| 75 72 6e 20 61 46 6c 75 | 73 68 0d 65 6e 64 20 66 |urn aFlu|sh.end f|
|00005830| 6c 75 73 68 0d 0d 2d 2d | 74 68 69 73 20 63 68 65 |lush..--|this che|
|00005840| 63 6b 73 20 66 6f 72 20 | 70 61 69 72 73 20 28 73 |cks for |pairs (s|
|00005850| 6c 6f 77 6c 79 29 0d 2d | 2d 72 65 74 75 72 6e 73 |lowly).-|-returns|
|00005860| 20 35 20 63 61 72 64 73 | 20 74 6f 20 74 68 65 20 | 5 cards| to the |
|00005870| 31 30 3b 20 6f 72 20 61 | 6e 79 20 6f 74 68 65 72 |10; or a|ny other|
|00005880| 20 6e 75 6d 62 65 72 20 | 74 6f 20 74 68 65 20 39 | number |to the 9|
|00005890| 0d 2d 2d 70 75 74 73 20 | 6a 6f 6b 65 72 20 66 69 |.--puts |joker fi|
|000058a0| 72 73 74 2d 2d 62 6f 74 | 68 65 72 20 77 69 74 68 |rst--bot|her with|
|000058b0| 20 70 6c 61 63 65 6d 65 | 6e 74 20 69 66 20 74 68 | placeme|nt if th|
|000058c0| 65 72 65 27 73 20 61 20 | 73 68 6f 77 64 6f 77 6e |ere's a |showdown|
|000058d0| 0d 2d 2d 61 73 73 75 6d | 65 73 20 73 6f 72 74 65 |.--assum|es sorte|
|000058e0| 64 20 68 61 6e 64 0d 66 | 75 6e 63 74 69 6f 6e 20 |d hand.f|unction |
|000058f0| 6c 6f 77 42 61 6c 6c 20 | 68 61 6e 64 0d 47 4c 4f |lowBall |hand.GLO|
|00005900| 42 41 4c 20 74 68 65 48 | 61 6e 64 0d 69 66 20 68 |BAL theH|and.if h|
|00005910| 61 6e 64 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |and = em|pty then|
|00005920| 20 70 75 74 20 74 68 65 | 48 61 6e 64 20 69 6e 74 | put the|Hand int|
|00005930| 6f 20 68 61 6e 64 0d 69 | 66 20 68 61 6e 64 20 63 |o hand.i|f hand c|
|00005940| 6f 6e 74 61 69 6e 73 20 | 22 31 34 22 20 74 68 65 |ontains |"14" the|
|00005950| 6e 20 70 75 74 20 61 63 | 65 73 28 68 61 6e 64 2c |n put ac|es(hand,|
|00005960| 22 6c 6f 77 22 29 20 69 | 6e 74 6f 20 68 61 6e 64 |"low") i|nto hand|
|00005970| 0d 0d 70 75 74 20 6f 66 | 66 73 65 74 28 22 2a 22 |..put of|fset("*"|
|00005980| 2c 68 61 6e 64 29 20 69 | 6e 74 6f 20 6a 0d 69 66 |,hand) i|nto j.if|
|00005990| 20 6a 20 ad 20 30 20 74 | 68 65 6e 0d 67 65 74 20 | j . 0 t|hen.get |
|000059a0| 28 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 |(number |of items|
|000059b0| 20 69 6e 20 63 68 61 72 | 20 31 20 74 6f 20 6a 20 | in char| 1 to j |
|000059c0| 6f 66 20 68 61 6e 64 29 | 0d 64 65 6c 65 74 65 20 |of hand)|.delete |
|000059d0| 69 74 65 6d 20 69 74 20 | 6f 66 20 68 61 6e 64 0d |item it |of hand.|
|000059e0| 70 75 74 20 22 2a 20 2a | 22 20 69 6e 74 6f 20 6c |put "* *|" into l|
|000059f0| 6f 77 48 61 6e 64 0d 70 | 75 74 20 30 20 69 6e 74 |owHand.p|ut 0 int|
|00005a00| 6f 20 70 72 65 76 56 61 | 6c 0d 65 6c 73 65 0d 70 |o prevVa|l.else.p|
|00005a10| 75 74 20 69 74 65 6d 20 | 31 20 6f 66 20 68 61 6e |ut item |1 of han|
|00005a20| 64 20 69 6e 74 6f 20 6c | 6f 77 48 61 6e 64 0d 70 |d into l|owHand.p|
|00005a30| 75 74 20 77 6f 72 64 20 | 31 20 6f 66 20 6c 6f 77 |ut word |1 of low|
|00005a40| 48 61 6e 64 20 69 6e 74 | 6f 20 70 72 65 76 56 61 |Hand int|o prevVa|
|00005a50| 6c 0d 64 65 6c 65 74 65 | 20 69 74 65 6d 20 31 20 |l.delete| item 1 |
|00005a60| 6f 66 20 68 61 6e 64 0d | 65 6e 64 20 69 66 0d 0d |of hand.|end if..|
|00005a70| 2d 2d 2d 70 75 74 20 70 | 72 65 76 56 61 6c 20 69 |---put p|revVal i|
|00005a80| 6e 74 6f 20 72 61 6e 6b | 0d 70 75 74 20 28 6e 75 |nto rank|.put (nu|
|00005a90| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 69 6e |mber of |items in|
|00005aa0| 20 68 61 6e 64 29 20 69 | 6e 74 6f 20 6e 75 6d 43 | hand) i|nto numC|
|00005ab0| 64 73 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 63 |ds.repea|t with c|
|00005ac0| 64 4e 75 6d 20 3d 20 31 | 20 74 6f 20 6e 75 6d 43 |dNum = 1| to numC|
|00005ad0| 64 73 0d 70 75 74 20 69 | 74 65 6d 20 63 64 4e 75 |ds.put i|tem cdNu|
|00005ae0| 6d 20 6f 66 20 68 61 6e | 64 20 69 6e 74 6f 20 74 |m of han|d into t|
|00005af0| 65 73 74 43 64 0d 70 75 | 74 20 77 6f 72 64 20 31 |estCd.pu|t word 1|
|00005b00| 20 6f 66 20 74 65 73 74 | 43 64 20 69 6e 74 6f 20 | of test|Cd into |
|00005b10| 74 65 73 74 56 61 6c 0d | 69 66 20 74 65 73 74 56 |testVal.|if testV|
|00005b20| 61 6c 20 3e 20 31 30 20 | 74 68 65 6e 20 65 78 69 |al > 10 |then exi|
|00005b30| 74 20 72 65 70 65 61 74 | 0d 69 66 20 74 65 73 74 |t repeat|.if test|
|00005b40| 56 61 6c 20 3d 20 31 30 | 20 41 4e 44 20 63 64 4e |Val = 10| AND cdN|
|00005b50| 75 6d 20 ad 20 6e 75 6d | 43 64 73 20 74 68 65 6e |um . num|Cds then|
|00005b60| 20 65 78 69 74 20 72 65 | 70 65 61 74 0d 69 66 20 | exit re|peat.if |
|00005b70| 74 65 73 74 56 61 6c 20 | 3d 20 70 72 65 76 56 61 |testVal |= prevVa|
|00005b80| 6c 20 74 68 65 6e 20 6e | 65 78 74 20 72 65 70 65 |l then n|ext repe|
|00005b90| 61 74 20 2d 2d 70 61 69 | 72 0d 70 75 74 20 22 2c |at --pai|r.put ",|
|00005ba0| 22 20 26 20 74 65 73 74 | 43 64 20 61 66 74 65 72 |" & test|Cd after|
|00005bb0| 20 6c 6f 77 48 61 6e 64 | 0d 70 75 74 20 74 65 73 | lowHand|.put tes|
|00005bc0| 74 56 61 6c 20 69 6e 74 | 6f 20 70 72 65 76 56 61 |tVal int|o prevVa|
|00005bd0| 6c 0d 2d 2d 2d 20 70 75 | 74 20 70 72 65 76 56 61 |l.--- pu|t prevVa|
|00005be0| 6c 20 62 65 66 6f 72 65 | 20 72 61 6e 6b 0d 65 6e |l before| rank.en|
|00005bf0| 64 20 72 65 70 65 61 74 | 0d 0d 72 65 74 75 72 6e |d repeat|..return|
|00005c00| 20 6c 6f 77 48 61 6e 64 | 0d 65 6e 64 20 6c 6f 77 | lowHand|.end low|
|00005c10| 42 61 6c 6c 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 6c |Ball..fu|nction l|
|00005c20| 6f 77 52 61 6e 6b 20 68 | 61 6e 64 2c 20 6e 75 6d |owRank h|and, num|
|00005c30| 4f 66 43 64 73 0d 47 4c | 4f 42 41 4c 20 74 68 65 |OfCds.GL|OBAL the|
|00005c40| 48 61 6e 64 0d 69 66 20 | 68 61 6e 64 20 3d 20 65 |Hand.if |hand = e|
|00005c50| 6d 70 74 79 20 74 68 65 | 6e 20 70 75 74 20 74 68 |mpty the|n put th|
|00005c60| 65 48 61 6e 64 20 69 6e | 74 6f 20 68 61 6e 64 0d |eHand in|to hand.|
|00005c70| 69 66 20 6e 75 6d 4f 66 | 43 64 73 20 3d 20 65 6d |if numOf|Cds = em|
|00005c80| 70 74 79 20 74 68 65 6e | 20 70 75 74 20 32 20 69 |pty then| put 2 i|
|00005c90| 6e 74 6f 20 6e 75 6d 4f | 46 43 64 73 0d 0d 70 75 |nto numO|FCds..pu|
|00005ca0| 74 20 61 63 65 73 28 68 | 61 6e 64 2c 22 6c 6f 77 |t aces(h|and,"low|
|00005cb0| 22 29 20 69 6e 74 6f 20 | 68 61 6e 64 0d 69 66 20 |") into |hand.if |
|00005cc0| 68 61 6e 64 20 63 6f 6e | 74 61 69 6e 73 20 22 2a |hand con|tains "*|
|00005cd0| 22 20 74 68 65 6e 0d 69 | 66 20 22 2a 22 20 69 73 |" then.i|f "*" is|
|00005ce0| 20 6e 6f 74 20 69 6e 20 | 69 74 65 6d 20 31 20 6f | not in |item 1 o|
|00005cf0| 66 20 68 61 6e 64 20 74 | 68 65 6e 20 61 6e 73 77 |f hand t|hen answ|
|00005d00| 65 72 20 22 65 72 72 6f | 72 20 64 65 61 6c 69 6e |er "erro|r dealin|
|00005d10| 67 20 77 2f 20 6a 6f 6b | 65 72 22 0d 69 66 20 77 |g w/ jok|er".if w|
|00005d20| 6f 72 64 20 31 20 6f 66 | 20 69 74 65 6d 20 32 20 |ord 1 of| item 2 |
|00005d30| 6f 66 20 68 61 6e 64 20 | ad 20 31 20 74 68 65 6e |of hand |. 1 then|
|00005d40| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 77 6f 72 64 |.put 1 i|nto word|
|00005d50| 20 31 20 6f 66 20 68 61 | 6e 64 20 2d 2d 73 65 74 | 1 of ha|nd --set|
|00005d60| 20 6a 6f 6b 65 72 20 74 | 6f 20 61 63 65 0d 65 6c | joker t|o ace.el|
|00005d70| 73 65 20 2d 2d 63 61 6e | 27 74 20 70 6c 61 63 65 |se --can|'t place|
|00005d80| 20 6a 6f 6b 65 72 20 31 | 73 74 20 62 65 63 61 75 | joker 1|st becau|
|00005d90| 73 65 20 74 68 65 72 65 | 27 73 20 61 6c 72 65 61 |se there|'s alrea|
|00005da0| 64 79 20 61 20 72 65 61 | 6c 20 61 63 65 0d 64 65 |dy a rea|l ace.de|
|00005db0| 6c 65 74 65 20 69 74 65 | 6d 20 31 20 6f 66 20 68 |lete ite|m 1 of h|
|00005dc0| 61 6e 64 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |and.repe|at with |
|00005dd0| 69 20 3d 20 31 20 74 6f | 20 34 0d 67 65 74 20 77 |i = 1 to| 4.get w|
|00005de0| 6f 72 64 20 31 20 6f 66 | 20 69 74 65 6d 20 69 20 |ord 1 of| item i |
|00005df0| 6f 66 20 68 61 6e 64 0d | 69 66 20 69 74 20 2b 20 |of hand.|if it + |
|00005e00| 31 20 3c 20 77 6f 72 64 | 20 31 20 6f 66 20 69 74 |1 < word| 1 of it|
|00005e10| 65 6d 20 69 20 2b 20 31 | 20 6f 66 20 68 61 6e 64 |em i + 1| of hand|
|00005e20| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|00005e30| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 70 75 74 |t.end re|peat.put|
|00005e40| 20 69 74 20 2b 20 31 20 | 26 26 20 22 2a 2c 22 20 | it + 1 |&& "*," |
|00005e50| 62 65 66 6f 72 65 20 69 | 74 65 6d 20 69 20 2b 20 |before i|tem i + |
|00005e60| 31 20 6f 66 20 68 61 6e | 64 0d 65 6e 64 20 69 66 |1 of han|d.end if|
|00005e70| 0d 65 6e 64 20 69 66 0d | 0d 72 65 70 65 61 74 20 |.end if.|.repeat |
|00005e80| 77 69 74 68 20 6a 20 3d | 20 35 20 64 6f 77 6e 20 |with j =| 5 down |
|00005e90| 74 6f 20 28 36 2d 6e 75 | 6d 4f 66 43 64 73 29 0d |to (6-nu|mOfCds).|
|00005ea0| 70 75 74 20 77 6f 72 64 | 20 31 20 6f 66 20 69 74 |put word| 1 of it|
|00005eb0| 65 6d 20 6a 20 6f 66 20 | 68 61 6e 64 20 61 66 74 |em j of |hand aft|
|00005ec0| 65 72 20 72 61 6e 6b 0d | 65 6e 64 20 72 65 70 65 |er rank.|end repe|
|00005ed0| 61 74 0d 72 65 74 75 72 | 6e 20 72 61 6e 6b 0d 65 |at.retur|n rank.e|
|00005ee0| 6e 64 20 6c 6f 77 52 61 | 6e 6b 0d 0d d7 2d 2d 6d |nd lowRa|nk...--m|
|00005ef0| 69 73 63 20 66 75 6e 63 | 74 69 6f 6e 73 0d 0d 2d |isc func|tions..-|
|00005f00| 2d 61 73 73 75 6d 65 73 | 20 6a 6f 6b 65 72 20 69 |-assumes| joker i|
|00005f10| 6e 20 31 73 74 20 70 6f | 73 69 74 69 6f 6e 0d 66 |n 1st po|sition.f|
|00005f20| 75 6e 63 74 69 6f 6e 20 | 61 63 65 73 20 68 61 6e |unction |aces han|
|00005f30| 64 2c 64 69 72 2c 20 6a | 6f 6b 65 72 0d 2d 2d 2d |d,dir, j|oker.---|
|00005f40| 20 69 66 20 6a 6f 6b 65 | 72 20 ad 20 65 6d 70 74 | if joke|r . empt|
|00005f50| 79 20 74 68 65 6e 20 61 | 6e 73 77 65 72 20 22 45 |y then a|nswer "E|
|00005f60| 72 72 6f 72 3a 20 4a 6f | 6b 65 72 20 6e 6f 74 20 |rror: Jo|ker not |
|00005f70| 65 6d 70 74 79 2e 22 0d | 69 66 20 64 69 72 20 3d |empty.".|if dir =|
|00005f80| 20 22 68 69 67 68 22 20 | 74 68 65 6e 0d 69 66 20 | "high" |then.if |
|00005f90| 6a 6f 6b 65 72 20 3d 20 | 74 72 75 65 20 41 4e 44 |joker = |true AND|
|00005fa0| 20 22 2a 22 20 69 73 20 | 69 6e 20 69 74 65 6d 20 | "*" is |in item |
|00005fb0| 31 20 6f 66 20 68 61 6e | 64 20 74 68 65 6e 0d 70 |1 of han|d then.p|
|00005fc0| 75 74 20 22 2c 31 34 20 | 2a 22 20 61 66 74 65 72 |ut ",14 |*" after|
|00005fd0| 20 68 61 6e 64 0d 64 65 | 6c 65 74 65 20 69 74 65 | hand.de|lete ite|
|00005fe0| 6d 20 31 20 6f 66 20 68 | 61 6e 64 0d 65 6e 64 20 |m 1 of h|and.end |
|00005ff0| 69 66 0d 72 65 70 65 61 | 74 20 34 0d 69 66 20 28 |if.repea|t 4.if (|
|00006000| 77 6f 72 64 20 31 20 6f | 66 20 69 74 65 6d 20 31 |word 1 o|f item 1|
|00006010| 20 6f 66 20 68 61 6e 64 | 20 ad 20 31 29 20 74 68 | of hand| . 1) th|
|00006020| 65 6e 20 72 65 74 75 72 | 6e 20 68 61 6e 64 0d 70 |en retur|n hand.p|
|00006030| 75 74 20 22 2c 22 20 26 | 20 31 34 20 26 26 20 28 |ut "," &| 14 && (|
|00006040| 6c 61 73 74 20 63 68 61 | 72 20 6f 66 20 69 74 65 |last cha|r of ite|
|00006050| 6d 20 31 20 6f 66 20 68 | 61 6e 64 29 20 61 66 74 |m 1 of h|and) aft|
|00006060| 65 72 20 68 61 6e 64 0d | 64 65 6c 65 74 65 20 69 |er hand.|delete i|
|00006070| 74 65 6d 20 31 20 6f 66 | 20 68 61 6e 64 0d 65 6e |tem 1 of| hand.en|
|00006080| 64 20 72 65 70 65 61 74 | 0d 72 65 74 75 72 6e 20 |d repeat|.return |
|00006090| 68 61 6e 64 0d 65 6e 64 | 20 69 66 0d 2d 2d 64 69 |hand.end| if.--di|
|000060a0| 72 20 3d 20 6c 6f 77 0d | 69 66 20 6a 6f 6b 65 72 |r = low.|if joker|
|000060b0| 20 3d 20 74 72 75 65 20 | 41 4e 44 20 28 22 2a 22 | = true |AND ("*"|
|000060c0| 20 69 73 20 69 6e 20 69 | 74 65 6d 20 31 20 6f 66 | is in i|tem 1 of|
|000060d0| 20 68 61 6e 64 29 20 74 | 68 65 6e 20 70 75 74 20 | hand) t|hen put |
|000060e0| 31 20 69 6e 74 6f 20 77 | 6f 72 64 20 31 20 6f 66 |1 into w|ord 1 of|
|000060f0| 20 68 61 6e 64 0d 72 65 | 70 65 61 74 20 34 0d 69 | hand.re|peat 4.i|
|00006100| 66 20 28 77 6f 72 64 20 | 31 20 6f 66 20 6c 61 73 |f (word |1 of las|
|00006110| 74 20 69 74 65 6d 20 6f | 66 20 68 61 6e 64 20 ad |t item o|f hand .|
|00006120| 20 31 34 29 20 74 68 65 | 6e 20 65 78 69 74 20 72 | 14) the|n exit r|
|00006130| 65 70 65 61 74 0d 70 75 | 74 20 31 20 69 6e 74 6f |epeat.pu|t 1 into|
|00006140| 20 77 6f 72 64 20 31 20 | 6f 66 20 6c 61 73 74 20 | word 1 |of last |
|00006150| 69 74 65 6d 20 6f 66 20 | 68 61 6e 64 0d 70 75 74 |item of |hand.put|
|00006160| 20 28 6c 61 73 74 20 69 | 74 65 6d 20 6f 66 20 68 | (last i|tem of h|
|00006170| 61 6e 64 29 20 26 20 63 | 6f 6d 6d 61 20 62 65 66 |and) & c|omma bef|
|00006180| 6f 72 65 20 68 61 6e 64 | 0d 64 65 6c 65 74 65 20 |ore hand|.delete |
|00006190| 6c 61 73 74 20 69 74 65 | 6d 20 6f 66 20 68 61 6e |last ite|m of han|
|000061a0| 64 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 72 65 74 |d.end re|peat.ret|
|000061b0| 75 72 6e 20 68 61 6e 64 | 0d 65 6e 64 20 61 63 65 |urn hand|.end ace|
|000061c0| 73 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 6b 69 6e 64 |s..funct|ion kind|
|000061d0| 73 52 61 6e 6b 20 6b 69 | 6e 64 73 0d 70 75 74 20 |sRank ki|nds.put |
|000061e0| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|000061f0| 69 6e 20 6b 69 6e 64 73 | 20 69 6e 74 6f 20 6e 75 |in kinds| into nu|
|00006200| 6d 4d 61 74 63 68 65 73 | 0d 2d 2d 2d 20 69 66 20 |mMatches|.--- if |
|00006210| 77 6f 72 64 20 31 20 6f | 66 20 6c 61 73 74 20 69 |word 1 o|f last i|
|00006220| 74 65 6d 20 6f 66 20 6b | 69 6e 64 73 20 3d 20 31 |tem of k|inds = 1|
|00006230| 34 20 74 68 65 6e 20 67 | 65 74 20 2e 36 37 0d 2d |4 then g|et .67.-|
|00006240| 2d 2d 20 20 65 6c 73 65 | 20 69 66 20 77 6f 72 64 |--  else| if word|
|00006250| 20 31 20 6f 66 20 6c 61 | 73 74 20 69 74 65 6d 20 | 1 of la|st item |
|00006260| 6f 66 20 6b 69 6e 64 73 | 20 3e 20 31 30 20 74 68 |of kinds| > 10 th|
|00006270| 65 6e 20 67 65 74 20 2e | 35 0d 2d 2d 2d 20 20 65 |en get .|5.---  e|
|00006280| 6c 73 65 20 67 65 74 20 | 30 0d 69 66 20 6e 75 6d |lse get |0.if num|
|00006290| 4d 61 74 63 68 65 73 20 | 3c 20 32 20 74 68 65 6e |Matches |< 2 then|
|000062a0| 20 72 65 74 75 72 6e 20 | 2d 31 0d 69 66 20 6e 75 | return |-1.if nu|
|000062b0| 6d 4d 61 74 63 68 65 73 | 20 3d 20 32 20 74 68 65 |mMatches| = 2 the|
|000062c0| 6e 20 72 65 74 75 72 6e | 20 30 0d 69 66 20 6e 75 |n return| 0.if nu|
|000062d0| 6d 4d 61 74 63 68 65 73 | 20 3d 20 33 20 74 68 65 |mMatches| = 3 the|
|000062e0| 6e 20 72 65 74 75 72 6e | 20 32 0d 69 66 20 6e 75 |n return| 2.if nu|
|000062f0| 6d 4d 61 74 63 68 65 73 | 20 3d 20 34 20 74 68 65 |mMatches| = 4 the|
|00006300| 6e 0d 69 66 20 77 6f 72 | 64 20 31 20 6f 66 20 6b |n.if wor|d 1 of k|
|00006310| 69 6e 64 73 20 3d 20 77 | 6f 72 64 20 31 20 6f 66 |inds = w|ord 1 of|
|00006320| 20 69 74 65 6d 20 34 20 | 6f 66 20 6b 69 6e 64 73 | item 4 |of kinds|
|00006330| 20 74 68 65 6e 20 72 65 | 74 75 72 6e 20 36 20 2d | then re|turn 6 -|
|00006340| 2d 34 20 6f 66 20 61 20 | 6b 69 6e 64 0d 72 65 74 |-4 of a |kind.ret|
|00006350| 75 72 6e 20 31 20 20 2d | 2d 74 77 6f 20 70 61 69 |urn 1  -|-two pai|
|00006360| 72 0d 65 6e 64 20 69 66 | 0d 2d 2d 6e 75 6d 4d 61 |r.end if|.--numMa|
|00006370| 74 63 68 65 73 20 3d 20 | 35 0d 69 66 20 77 6f 72 |tches = |5.if wor|
|00006380| 64 20 31 20 6f 66 20 6b | 69 6e 64 73 20 ad 20 77 |d 1 of k|inds . w|
|00006390| 6f 72 64 20 31 20 6f 66 | 20 6c 61 73 74 20 69 74 |ord 1 of| last it|
|000063a0| 65 6d 20 6f 66 20 6b 69 | 6e 64 73 20 74 68 65 6e |em of ki|nds then|
|000063b0| 20 72 65 74 75 72 6e 20 | 35 20 20 2d 2d 66 75 6c | return |5  --ful|
|000063c0| 6c 20 68 6f 75 73 65 0d | 72 65 74 75 72 6e 20 38 |l house.|return 8|
|000063d0| 20 2d 2d 35 20 6f 66 20 | 61 20 6b 69 6e 64 0d 65 | --5 of |a kind.e|
|000063e0| 6e 64 20 6b 69 6e 64 73 | 52 61 6e 6b 0d 0d 66 75 |nd kinds|Rank..fu|
|000063f0| 6e 63 74 69 6f 6e 20 6c | 6f 77 54 6f 48 69 67 68 |nction l|owToHigh|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.